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PLEASE NOTE: 

Our new WATS line 
number is: 

1-800-258-1790 

when installed 

It is ONLY to be used for 
ordering software 

Programmers will not be 
available on this line. 

The WATS line will be 
open from:- ''■r\\Ay'?fvA<y\ 
8:00 a.m. to 6:00 p.m.* 



ALSO... 

During norma! business 
hours, programmers will 
ONLY be available from: 

9-10 a.m. and 5-6 p.m* 

673-5144 



New HOTLI N E Hours : 

Tuesday Nights 
7-10 p.m.* 

673-5144 



Your Cooperation Will Be 
Most Appreciated ': 



•Eastern Standard Time 
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by Lance Micklus 




This month's Prog/80 features 
something that we had planned for 
a Jong time; a listing for a machine 

language program. I can't remember 
now if we ever indicated this 
anywhere, but Prog/80 is game for 
machine language, FORTRAN, 
PASCAL, MMSFORTH, as well as 
BASIC. As I continue to develop 
good inside contacts with others, i 
think you'll find more good meat 
here in Prog/80 than in any other 
magazine that caters to program- 
mers, rather than end users. In this 
magazine we are interested in infor- 
mation and education, rather than 
end user products - although some 
of the program listings may be very 
useful to you. 

One of the things I've discovered 
about machine language programs 
is that they take up a lot of space. A 
listing for KVP, for example, would 
take up three Prog/80 magazines 
from cover to cover. This is made 
worse by the fact that we must print 
them sideways to get all the print on 
the page. I'm not sure how we'll 
handle FORTRAN, PASCAL, and 
FORTH listings. I guess we'll cross 
that bridge when we get there. 



The TRS-80 Model II seems to be 
on everybody's mind these days. To 
be honest with you, I haven't been 
able to devote the time to my Model 
II that I'd like to right now. 8ut, 
from a programmer's point of view, 
I have some opinions on it already. 
In a nutshell, I don't like it. 

Model II TRSDOS is not as good 

as Model I. Radio Shack seems to 
have tried to do it themselves, and 
they just don't have Randy Cook's 
years of experience in-house. Randy 
has been working with microcom- 
puters ever since they were in- 
vented. He built one of the first 
microcomputers himself He had 
been working on a disk operating 
system for several years. TRSDOS 
was the reality of that work. 

Randy has worked with several of 
the Sigma series computers. Their 
CP-V is the equivalent of TRSDOS. 
CP-V is considered by many to be 
the most powerful monitor ever 
written for a time-sharing computer. 
It is incredibly fast, in fact, the 
fastest, and it is DEVICE driven. 
(TRSDOS does not have to time- 
share, but it is DEVICE driven.) 



The Model II is a VECTOR driven 
system. This is a much easier 
operating system to write, but far 
less powerful than a DEVICE driven 
system. A lot of their I/O is a little 
strange. Their variable length 
records complicate things con- 
siderably, with no real gain in com- 
puting power. Microsoft nicely 
sidestepped the problem by writing 
all of their files out with a record 
length of 1 . This let them treat files 
like DEVICES. If Microsoft seems to 
be having trouble handling files, 
what about the rest of us? 

Model II TRSDOS seems to be 

hasty and cheap. Corners have been 
cut in other areas of the machine. 
One is a packing carton. Many of 
the Model II 's do not work when 
received because they are shipped 
by truck and can't stand the bounc- 
ing. It is a fact that you can design a 
shipping carton to send a Model II 
by truck, and get it there in one 
piece. Such a carton may cost up to 
$150, JUST FOR THE CARTON! 
Radio Shack's answer seems to be to 
use the cheapest carton, blame the 
truckers, and then try a more expen- 
sive carton until they find one that 
works. Most companies would go 
the other way. They would use the 
expensive carton first, and then 
move down to the cheaper carton 
until they find the point where the 
cheaper carton doesn't work. 

The second compromise is in the 
size of the transformer. There is a 
school of thought which says that 
the quality of the design and com- 
ponents is proportional to the size 
and weight of the power 
transformer. My Sorcerer has a big- 
ger and heavier transformer than my 
Model II. But my Sorcerer does not 
have to power a video monitor and a 
disk drive. 



Being a programmer often is like 
playing poker. You get dealt a hand, 
and bet your money. When a new 
machine comes out by anybody, 
you have to decide to back it or not. 
If you back it, and it doesn't sell 
well, you may end up spending a lot 
of time and money to develop your 
products, without a market to sell 
them in. On the other hand, if you 
don't back a new system, and it sells 
well, then you come into the market 
late, and have to catch up with your 
competitors. 

The fact that I bought a Model II 
and am developing software for it 
tells you where I put my money. 
And I fee! comfortable with that 
decision in spite of all of the Model 
ll's faults, even in spite of Radio 
Shack's faults. But a word of cau- 
tion to all of you. Don't assume that 
each new Radio Shack computer 
will automatically turn into a pot of 
gold. Sooner or later, some other 
company will get their act together, 
avoid Radio Shack's, mistakes, and 
take control of at least part of the 
market, if not the bulk of it. 

Here's the thought of the month. 
Zenith now owns Heathkit as of Oc- 
tober 1, 1979. Look at the "All - In 
-One" computer and ask yourself 
what it would be like with 8 inch 
disks. Then, there is the large 
number of Heathkit service centers. 
Read the description of Heathkit's 
disk operating system. It's got 
dynamic file allocation and is 
DEVICE driven. (I keep harping on 
that point, don't I?) And what would 
happen if Zenith sold an improved 
"All - In - One" computer with 8 
inch disks through its distribution 
system? 

Gosh, Hug/80 doesn't sound like a 
bad name for a Heathkit Prog/80 
magazine, does it? ■ 



PERIODICAL 

CROSS 

REFERENC 

by Dave Stambaugh 

YOU DON'T HAVE TO BE A LIBRARIAN 

Every professional or serious hobbyist who 
relies on current literature to update his/ 
her knowledge can benefit from this pro- 
gram. Build a file using any subjects or 
publications you like (18 per file). Allows 
you to add, delete, edit; search by sub- 
ject or publication; list on CRT or line 
printer all or selected entries. SAVE, LOAD with 
both tape and disk versions. 

■^■Catalog and classify your 
library of computer (or other) 
magazines by individual ar- 
ticles under subject, publica- 
tion, date, page, and title 

^List entries by subject or 
publication to CRT or printer 




^-Maintain data files 

on cassette or disk (2 

versions available) 

^f Edit, delete, add entries 

at anytime 

-^-Includes complete 

instructions 



Cassette version: Level II, 16K 
Disk Version: Single disk, 32K 
(Minimum configurations) 



14.95 
19.95 




The Software Exchange 

6 SoulhStreet, Box 68, Milford, NH 03055 603-673-5144 



BASIC 
STATISTICS 






by Steve Reisser 

This powerful set of procedures is of use to students, 
instructors, behavioral and research scientists — anyone 
applying statistical formulae. 

PEARSON PRODUCT-MOMENT 
FISHER T-TEST CORRELATION COEFFICIENT 

Z-SCORES and STANDARD SCORES CENTRAL TENDENCY 
CHI-SQUARE SIMPLE ANALYSIS OF VARIANCE 
RANDOM NUMBER GENERATOR RANK-ORDER DATA 

The basic formulae for these major procedures were 
derived from the textbook, Elementary Statistics, by 
Janet T. Spencer, Benton J. Underwood, Carl P. Duncan, 
and John W. Cotton. Appleton-Century-Crofts Psycholoqu 
Series, New York, 1968. 

Level II, 16K 

$19.95 



tm 



IheSottware Exchange 

6ScmhSlreel,Box68,Mlkyd,NH03055 603-673-SM4 
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Computer Telephone Dialing is a 
program designed to allow the 
Radio Shack TRS-80 to dial 
telephone numbers from an in- 
memory directory. With this pro- 
gram the user builds his own per- 
sonal telephone directory for those 
calls made most frequently. The 
program will allow the user to input 
and store up to 50 telephone 
numbers. By entering the proper 
code number, 1 thru 50, the com- 
puter will dial the telephone 
numbers stored in-memory by the 
user. The user of this program may 
also input telephone numbers 
directly, for those numbers called 
less frequently. An added feature of 
this program is that it also times all 
calls made and stores both the party 
called and the length of time the 
user talked. The program has a pro- 
vision to save the user's previously 
entered directory on tape for daily 
use, and the user may also save the 
calls-made listing on cassette tape 
for end-of-month auditing of his 
telephone bill. 



When the user begins using this pro- 
gram he is asked to enter first the 
name of the party to be called; and 
if the call is local, local toll, or long 
distance. When the call is local, the 
code "LO" is entered, which allows 
the computer to dial 7 digits; when 
the call is a local toll, the code "LT" 
is entered, which allows the com- 
puter to dial 8 digits (the 8 digits 
begin 1 plus the called party's 7-digit 
number). When the call is long 
distance, the code "LD" is entered, 
which allows the computer to dial 
11 digits, (1 plus the area code plus 
the called party's 7-digit number). 

This program dials telephone 
numbers by the use of the OUT 
statement in Level II Basic, to turn 
the TRS-80 relay on and off. The 
relay must function at a pulse rate 
of 10 cycles per second with a 
break-open time of 60%of the clos- 
ed time during pulsing. The pulse 
rate has a tolerance of + or -10%. 

The TRS-80 is connected to the 
telephone line by the remote plug. 
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The remote plug is connected to a 
telephone interface, which you will 
need to construct in order to proper- 
ly match the TRS-80 to the 
telephone line. The cost to con- 
struct the telephone interface is ap- 
proximately $7.00, using locally 
available Radio Shack parts. Com- 
plete instructions for building the 
telephone interface and parts 
listings with Radio Shack part 
numbers are included in the 
schematic diagram. You will note 
that in the diagram a switch is used 
to open the telephone tine from the 
telephone interface, also a small 
light is wired with the same switch. 
The switch is used to disconnect the 
TRS-80 from the telephone tine 
when not in use. The small LED 



signals the user that the TRS-80 is 
connected to the telephone line and 
is ready for dialing. This switch must 
be in the OFF position when not us- 
ing the TRS-80 for dialing. Due to 
the presence of two diodes across 
the relay contacts in the TRS-80, 
failure to turn the switch to the OFF 
position will result in your 
telephone ringing only once during 
an incoming call. Thus the user 
should note; light ON for dialing, 
light OFF when not dialing. 

Before connecting the TRS-80 to 
your telephone line it is strongly 
recommended that you contact 
your local telephone company in 
regard to the use of automatic dial- 
ing equipment. ■ 



TRS-80 Telephone Interface Schematic Diagram 
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J1 
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J2 

TO TELEPHONE LIKE 
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PART NUMBER 


DESCRIPTION 




RADIO SHACK 
CATALOG NUMBER 


R1 


47 ohm Vj watt resistor 




271-009 


R2 


47 ohm V4 watt resistor 




271-009 


R3 


470 ohm Vi watt resistor 




271-009 


R4 


470 ohm Vj watt resistor 




271-019 


C1 


.1 uf capacitor 50WUDC 




272-1069 


11 


Subminiature Phone Jack 




274-292 


|2 


Shielded Phono Jack 




274-346 


S1 


Subminiature DPDT Toggl 


eswitch 


275414 


B1 


9 U Battery 




23-464 


LED1 


Flasher LED (red) 




276-036 


Misc. 


9 volt battery clips 




270-325 




"mini" utility box 




270-230 


NOTE: Jacks J 1 and ) 2 must be mounted in 


the plastic sides of the box. 
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Lance Micklus' 
ST80-the Smart 
Terminal Program- 
just got SMARTER ! ! 




ST80D contains extensions for disk 
drive systems to exchange files with a 
timesharing computer or another TRS-80. 



USING ST80D, your TRS-80 can do all this and more: 

Gather and pre-format data, store it on disk, then 
transmit it to a timesharing computer for processing. 
Processed data from the timesharing computer can 
then be sent back to the TRS-80. 

One TRS-80 can generate a data base and share it with 
another TRS-80 thousands of miles away by telephone. 

Users may customize their terminal program by 
redefining the translation tables. Conversion from one 
set of tables to another takes only seconds. 

Auto logon feature sends your account name, number 
and password upon request. 

ST80D can transmit any type of TRS-80 ASCII file, 
including BASIC programs stored in ASCII format, and 
most BASIC data files. Binary files can also be 
transmitted from one TRS-80 to another, allowing even 
machine language programs to be sent over the phone. 

ST80D is a practical, full-feature terminal program that 
has been used on a variety of timesharing systems. 

These include IBM 370, Honeywell Sigma/6, Harris/7, 
DECSYSTEM 20, Dartmouth Timesharing, CDC Cyber 
and HP 2000. 

f you're looking for a professional quality product, 
not an amateur program, then order ST80D today! 



For 32K 
disk systems 
$79.95 



The Software Excliange 

6bajtfii(n?e*,So»:ti8,.V*ft«yAV'O30S5 bOl-lvA-SM 
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ADVANCED 

Personal 
Finance 



by Lance Micklus 

First, we took the tape version of PERSONAL FINANCE and 
converted it for use under DOS. Then many new features were 
added such as self- verifying files which protect themselves from 
most common hardware faults, and the BUDGET program 
which collects data - automatically from the CHECKING 
program, and manually from the keyboard. Advanced Personal 
Finance will produce a 30-page report that gives you the total 
picture of your financial posture. To complete the package, a 
SAVINGS account program lets you use the one savings account 
as if it were ten individual accounts. This way you can set a 
certain amount of money aside for Christmas, save an additional 
amount for a rainy day, and keep track of how much is for what. 
Also included are programs to convert the data file on tape 
from the regular personal finance program to disk. 

On a 32K disk system, the package will handle about 200 
checks per month and 900 checks per year. There are 33 
different account names which are set up with DATA statements 
in each program on the disk. 

The minimum system required is 32K Disk BASIC with one 
drive. The addition of a line printer, a second drive, and 
upper/lower case video display all enhance the features. A 
second disk (not supplied) is required to store your data, as the 
program disk is very full. Price, $24.95. 

Original Tape Version: Personal Finance $9.95 

The Software Exchange 

6 SouthStreet, Box 68, Milford.NH 0.SO55 603-673-5144 
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5 REM *4*******+**tt***iM***»*w****i******»** 



#* 


COMPUTER TaEPHQNE DIALING 


+* 


** 


ROBERT SOURS 


** 


*t 


t 


+* 


10 REM ** 


STEVE KCKEE 


** 


*+ 


PORTtfiND- INDIANA 


#* 


** 


JULY 1979 


*» 


** 




** 


15 REM ** 


COPYRIGHT JULV* 1979 


** 



28 

25 CLEflR4W:X=6:J=6;[)IHN$a81):DIMfl*(161):DlHP$(181>:&2«fi$<161> 

:DinF*<51>:DIHH(5l) 

20 00SUB678 

25 CIS: INPUT-ENTER TOWN'S DATE <H0NTH-Ofty-VEflR> NO COMMAS", EE* 

46 IFUN(EE$»8"DRlEN(EE*)<6THEtG5 

45 80T0258 

58 <m ** DETERMINE LONG DISTANCE OR tOCflL ** 

55 !FQ*<I>="UTCLS:G0T0185 

66 IFQ*<l)= M LT"aS:PRINTH?3."D I A i. I M 6 U :PRI«T8538.CHR*<49H 

CHR*<45>.; +RIGHT$<fl$<I>, 8) :8=1:0UT255, ?:FORZ=1TO1206.«£HT :G0SU621 

5:60TGi28 

65 OS 

n PRINTW?2> "0 I ft L ! N 8" 

75 REM ** PICKING OUT INDIVIDUAL NUMBERS 1 ** 

88 PftIHNS3fc CHR$ <49>+CHW<45), "". ftf (I) 

85 6=1 : QUT255. 7 :F0R2*1T01288 : NEXT . G0SU6215 

98 B*VHUMl&»<ft*< I ), L 1) ) : GGSUB215 

95 B=VflL<niD*tf»a>» 2, i» :G0SU6215 

106 6=VflL<KID*(fl*U >, I, 1» :G0SUB215 

165 PRif<Tg475, "C* I ft L I H G" 

110 PRINTg546,RIGKT$<ft$<i).3> 

115 0UT255,7:F0EnT01266.l€ftT 

120 6=VfiL<MID$ (fl*< I >, 5, i» : 60SU6215 

125 e-VflL<«ID$<fl*< l >, 6, 1>> .I30SIB215 

138 B=VftL(HID$< A*< I ). 7. 1» : G0SUB215 

135 e=VSLCHIO$<ft$< I ), 9, 1) > .GQSUB215 

148 B=Yfll<HID*<fl*U>,ie,l)>:GQSUB215 

145 B*VflL(liIDKBa>, 11, i)> :GG5UB215 
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156 S=VflL(HIO»<ft»<I>»12*i»:60SUB215 

155 as :PR1NTW48» "DIALING CGHPLETE — PICK OP RECEIVER" 

166 PRINT :PR1NT" IF THEVflHSHER HIT THE H ; CHR$Ci4>; "ft"; CHR*G4); " 

KEV." 

!?i PRINT :PRINT" IF NO ANSWER HIT THE \QKtW)i "H\CHfi*<34); " K 
EV" 

i?8 OUT255,7:FQR2*lTOl50fl8 
175 tFINK£V$» B ft"THEN865 
188 lFl«KEV$*"H n THEM44S 

185 IFZ>14999THENCLS:PRINTCHS.t<22);PRINT ,, THEV AREN'T MING TO. AN 
SWER ! " : F0R2=1T01588 : NEXT : G0T0445 
1% NEXT 

135 CLS:PRINTM48, "DIALING COMPLETE — VOU CALLEO" 
286 PRlHliPRIMTHttDi " ",ft$CI> 
285 PRIMT:PRINT"flW> TALKED FOR"; H<V), MINUTES" :FiK2=lT02&ee; NEXT 

:6OTO440 

218 REH ** DIALING SEQUENCE ** 

215 IFB=8THEN6=-i6 . ■■•-■■ 

226 H=B 

225 R=fi-1.0UT255.7 .. 

228 F0RZ=8TO36:NEXT 

225 G0T255, 2 . FORZ=0TO1S . NEHT 

246 IFfl=8THEN245ELSE225 

245 OJT255, ?:F0R2=8T0288.t€X1 ;6=6-.RETURN 

256CLS:PRM&1&"* * MENU * V: PRINT .......' 



255 PRINT" 1 


= BUILD LJIRECTORY 


266 PRINT" 2 


= SEE 01RECTORV 


265 PRINT" 3 


- HAKE CORRECTIONS 


279 PRINT" 4 


- SAVE DIRECTORS' 


2?5 PRINT" 5 


= SfiVE CALLS MADE 


288 PRINT" 6 


* LOAD DIRECTORY . . 


285 PRINT" 7 


= LOAD CALLS HADE 


256 PRINT" 8 


= DIAL DIRECT 


235 PRINT" 3 


= CONTINUE BUILDING DiRECTORV 


366 PRINT "16 


= LIST CALLS ilADE" 


365 IDPUTK 




318 IFK<lORK>10THEN258 


315 Qf&GOTG32 


6, 448, 366) 576, 535, 628, 645, ??6, 338. 835 


328 


REM ** CONSTRUCT DIRECTORY ** 
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325 F0RI~iTQ58:aS:GQT032S 

338 IFD49GOT0438£LSED=I-1:FQRI=DT056:CLS 

335 PRW'TO DISCONTINUE BUILDING DIRECTORY TYPE ";CHR*G4>; "STO 

P°»CHRI<34):PRIMT"0THERHISE I«PUT THIS CODE NUMBER: M; : INPUT" 

AND =€NTEft="»P*<I) ■ 

346 IFP$< I >="STGf"THENPl=I : GGT0438 

345 IFVflL<P*(l»OIR%INT a IMPROPER CODING — PLEASE TRY AGAIN" :GO 

T0335 

359 PRINT: INPUT" INPUT NflME AND =£KTER=";N*<I> ■ 

355 IFLEH<N*< I ) ><2STHENN*< I >4»< I >+STRING*C26~LEN<Nt( I )), "-" > 

366 IFLEN<N*U»>28THENN*<i)=LEFWN*a ), 26) 

365 as : PR INT "ENTER PROPER CODE:" 

378 PRINT : PRINTLOCAL - "; CHR$G4>; "LQ"; CHR*G4) 

3?5 PRINT'LOCAL TOLL - ";CHR$G4>; "LT",CHR*<34) f 

386 PRINT'tONG DISTANCE - ";CHR$G4); "LD",CHR*G4> 

385 IWW»<1) 

396 lFQ$(D="LO"i3RQ$(I)="LT"ORa$(l)="LD"THEW4ei3 

395 PRINT" IMPROPER CODING - PLEASE TRY fiGfiIN":U0T03?6 

468 PRINT: PR INT" INPUT COMPLETE TELEPHONE NUMBER INCLUDING*: INPUT 

"AREA CODE AND ALL HYPHENS"; ft* <i> 

485 IFLEN<ft*a>><12PRIHT"Y0U HAVE LEFT SOMETHING 0UT":6GT0488 

416 IFLEN(fl*(I»>12PRINT"V0U HAVE TOO MANY ENTRIES' :GGTQ466 

415 IFMDS<A*(IM, i)OCHR$(45>0RMU»<R$<I)» &l)OCHR*(45>PRINT" 

VOU HAVE LEFT OUT A HYPHEN" :GGT0468 

428 iFFRE<X$)<16860T0428 

425 NEXT1 

436 PRINFDIRECTORY aOSED --'*: INPUT *TG SEE MENU/ HIT =ENTER=\; 

435 GOT0258 

446 REM ** LIST DIRECTORY ** 

445 as 

456 FORMTOPl 

4S5PRIHTP«I>»8KI>." MttU^fttQ) 
466 IFl=i20RI=240RI=360RI=48TH£N315 
465 NEXTI 

4?6 PRINT"TO DIAL THE NUMBER ENTER THE CODE NUMBER" .PRINT-TO SEE 
MENU TYPE ",CHR*(34>; "M£NU";CHR*<34>; :INPUTP* 
4?5 IFP*="H£NU"THEN256 
488 FORMTQPi 
485 IFMsp*<I)THENf5 
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m NEXT 

495 PRINT" IMPROPER CODING" :F0R2=ITG1868: NEXT :Q0T0445 

588 REM ** CORRECTING SEQUENCE ** 

5S5 CL5: PRINT-ENTER LINE VOU WflMT TO CORRECT BY NftflE" . . 

518 INPUTNf 

515 FORI=1TOP1:IFN$=N*(1)THENB8 

520 NEXTI 

525 PRINT"NflME NOT IN DIRECTORY" :60T0555 

538 PRINT"ENTER THE CORRECTED INFO: ";FtINT:PRlNTCHRI<34); "LO"iC 

HR$G4>;* OR ";CHRSG4>; B !.T",CHR$G4>, " OR ",ChR$G4>>"l[) u ,CHR*!. 

34), " , MftHL TELEPHONE NUMBER" 

535 INPUTGWO > : IF6j(I)="L0"0RQ$(1>="LD"0RQ*< I J="LT"THENINPUTN*(I 

>,fi*<I>ELSE545 

540 iFLEN<fl*<I»=12ffl*ffIM(R*(I>* 4,i)=CW»<45>ANDWM<Fl*<I>,8, 1> 

=CHR$(45>THEN556 

545 PRINT" IMPROPER CODING - PlEfiSE TR 1 !' flGftIH!":GOTQ538 

558 PRINT"THE DIRECTORY NOW READS: VPRINTWd);" 'Mi*(I>,R*<I 

555 2=0: INPUT "FOP. ANOTHER CORRECTION TYPE 1",2 

560 IFZ=iTHEN585 

565 G0T0250 

57$ REH ** SAVING. DIRECTORY ONTO TAPE *» 

575 CLSiINPUT-MftKE PREPARATIONS FOR CASSETTE, WHEN READY HIT =EN 

T£R="i 

580 PfiINT"COP¥ING. ..." 

585 PRINTS-!, Pi 

530 FQRMTCfi . PRINT*-!, PIU >, 81(1 >, fttC I >, f»< I > : NEXT 

595 CLS.TT^iPRINTno SAVE CALLS MADE TO DATE, INSERT CASSETTE * 

2":PRINT"AND =£NTER- THE NUMBER i OTHERWISE JUST =£N7ER=MNPU7T 

T:IFTT01THEN25e 

606 prm#-2,ee*,j 

685 fORE=iTGJ:PKlNT#-2,F-KE>:NEXT£ 

6iO PRINTCOHPlETE - NOTE TftPE LOCATION" 

615 INPUTTO SEE THE MENU, HIT =ENTER= a ;X.GGT0256 

628 REM ** LOADING TAPE TO COMPUTER ** 

625 OS: INPUT-WHEN F£Bt>V» HIT =£NTER-%X:< 

63.0 PRINT" INPUTING.... 

635 INPUTS-!, PI 

643 rORI=lTOPl . INPUT*-!, Hi I >, 6$( I >, Ntt 1 h St( I > :NEXT 
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645 CLS:TT=e: PRINT "TO INPUT CALLS HADE TODAY, INSERT CASSETTE 12 
":PRlHT H ftNO =€NTER= THE NUMBER 1 OTHERWISE JUST =£NT£R=" : IMPOTTT 

:IFT701TH£N258 

650 INPUT#-2,EE*,J 

655 F0RE=1TQJ : lNPUTi-2, F$<E) :NEXTE 

666 INPUTPRESS =ENTER= TO SEE MENU"; .G0T0258 

665 REM +* INSTRUCTIONS ** 

678 CLS: :PRINT@18, "COMPUTER TELEPHONE DIALING" 

675 PRIN7 n C0PYRIGHT JULY 1979 ROBERT SOURS ( STEVE MCKEE PORT 

LAND IN" 

686 PRINT :PRINT"*** NOTICE *** 

685 PRINT "THIS PROGRAM HAS DESIGNED TO DEMONSTRATE ONE OF THE flfl 

NY PRftCTICFiL USES fi HICRO-COMPUTER CAN HAVE FOR BOTH FflHI 

LV AND BUSINESS. 

698 PRINFTHE USER BUILDS HIS OWN PERSONAL TELEPHONE DIRECTORY f 

OR THOSE CALLS MADE MOST FREQUENTLY. "; 

695 PRINT" BY ENTERING CODE NUMBERS THE COMPUTER MILL DIAL 

THE TELEPHONE NUMBER FOR HIM. " 

766 PRINT "THE USER MAY ALSO INPUT TELEPHONE NUMBERS DIRECT FOR T 

HOSE NUMBERS CALLED LESS FKEfiUENTLY. " 

765 PRINT"THIS PROGRAM ALSO TIDES ALL CALLS MADE AND STORES BOTH 

THE PARTY CALLED AND THE LENGTH OF TIME THE USER TALKED. " 

718 PRINT: INPUT"PR£SS =£NTER= TO CONTINUE".^*; CLS 
715 PRINTCHS <2a) . PRINT :PRINT"YQU MUST CHECK ttlTH YOUR LOCAL TE 
LEFHQHE COMPANY BEFORE HOOKINuTHE COMPUTER DIALER TO THEIR ES 
U1PICNT. " 

728 PRINT. MPUT'DQ YOU iiflNT DIRECT IONS" » 2*. iF2$0"Y£S"MNR£TGRN 
725 CLS -.PRINT; PRINT" THE PROGRAM BEGINS BY ASKING TODAY'S DATE. 
THIS IS INPUTTED AT THIS TIME HMD WHEN YOUR PHONE CALLS MADE ARE 

LISTED, THAT DATE WILL APPEAR ON THE UPPER RIGHT HAND PORTION 
OF THE SCREEN. " 

7~i8 PRINT :PRM"fi FEW THINGS TO WATCH OUT FOR IS:" 
735 PRINT" 1 - AFTER. YOU BEGIN BUILDING YOUR DIRECTORY, DO ft 

OT CALL FOR THAT FUNCTION AGAIN DURING ANY ONE PROGRAM GPERATI 
ON. IF YOU DO YOU WILL LOSE WHATEVER DIRECTORY YOU HAVE CONST 
RUCTED. " 

748 PRINT"TK£RE IS ft SPECIFIC FUNCTION CALL FOR CONTINUING WITH 
fi DIRECTORY ALREADY STARTED. ' — '." 

745 PRINT. INPUT H PR£SS =ENTER= TO CONTINUE"; 3; CLS 
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758 PRINT :PR1NT" 2 - YOU MAY ENTER UP TO, BUT NOT MOKE THAN 

58 TELEPHONE NUMBERS IN YOUR DIRECTORY. "; 

755 PRINT" THERE IS A PROVISION IN THIS PROGRAMTO KEEP VOU FROM 

ENTERING TOO MANY NUMBERS BY GIVING YOU ft "DIRECTORY CLOSE 

D= INPUT WHICH MILL MOT ALLOW YOU TO ENTER AMY MORE NUMBERS. u 
760 PRINT: PRINT* 2 - HTTH ft FULL DIRECTORY OF 58 TELEPHONE N 
UMBERS YOU MAY HAKE 58 TELEPHONE CALLS BEFORE YOU MUST SAVE THE 
ft" 

765 PRINT: PRINT* 4 - AT THE END OF EACH WW OR AFTER 56 CCflP 
LETED PHONE CALLS, YOU WILL HAVE TO SAVE CALLS MADE AND REfifJ 

N THE PROGRAM THEN REENTER YOUR DIRECTORY. " : PRINT : INPUT "PRESS 
=ENTER* TO BEGIN"; fi$:R£TUKN 

778 CLS:IFJ=>50PRINT"YOU CANNOT MAKE ANV MORE CALLS UNTIL" :PRINT 
"VOU HAVE SAVED THOSE ALREADY BADE" : INPUT "PRESS =€NTER= TO GO TO 

MENU"; :G0T0258 
775 PRINT :PRM" INPUT COMPLETE TELEPHONE": PR I NT "NUMBER: "; : INPUT 
A*<1> 

786 IFLEN(fi$(I»=i2flNDflID$<H$<I), 4, l)=€HRfc45>fl«HtIt»<fi*a).&i> 
=CHR*(45)THEN?96 

7S'5 PRINT .-PRINT-PlERSE TRY AGAIN! CHECK AREA CODE AND HYPHENS 
.":GOTO??5 

798 U.S:PRINT"ENTER PROPER CODE: " 
795 PRINT : PRM"LOCftL - "; CHR$G4>, °LO"; CHR* (34) 

868 PRINT'tOCfiL TOLL - ";CHR$(34>i "LT ,, ;CHR$C34> 
865 PRINT'lONG DISTANCE - "iCMWOWi 'LB h i CW»(34) 
318 INPUTWCI) 

815 lF«(I>«"L0"THE«CLS:e0T0tfl5 

326 IFQ$<I>="LT*THa*CLS:PRimM?3,"& I A L I N S*:PRI!fi&533,eHRi 
<43>+CHRI <45)*RIGHTf <fl*Ci ). 8> :B=1:0UT255. 7 .F0R2*iTQl288.KEXT :&OS 
UB2t5:GQTG126 

825 1FQ*(D="LD"THENCLS.GOTG?0 

826 PRINT: PRINT "IMPROPER CODING - PLEASE TRY flOMN":GOT0?9S 
825 REM ** LIST CALLS MADE ** 

348 CL5 : FRINTN& "DATE : "; EEI : FGRE=1TQJ 

845 PRIHTFttE) 

358 iFE=120R£=240RE=260RE=48THEN938 

855 NEXTE 

868 PRINT: INPUT"HIT =ENTER= TO RETURN TO MENU">X*:80T0256 

865 CLS:PRINTCHR*C22>:PRINTC-44B J "W€N YOU HANG UP, *: PRINT "HIT TH 

E "CHR$-34),-'P B ;CHR$G4)i" KEY." 
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876 PRINTC'94.. "TIMING: " 
875 FQKZ=6TCB28e0 
886 W(V)=INT( (2/305+ 885>*168>/166 
885 PRINTOUT M(V) 
856 IF1NKEY*="F' U THEN988 
895 NEXT 

968 J=J+1 : F*U>=*»( I >+CHR$G2HCHR$G2)+f»C I >+CHR$G2>+CHR$G2>+ 
STR*<W(V> )+CHR$<J2>+"HINUT£S" 

965 1FJ>45CLS:PRINT"Y0U MUST STORE CALLS MADE BEFORE CONTINUING" 
IHPW'PRESS =ENTER= TO CONTINUE". X$.GQT0256 
916 G0T0195 

915 PRINT" INPUT -CODE NUMBER- TO DIAL: "> CHRf<24>> "C. CHfi*G4> 
,"TURNPFlGE. ", :INPUTT* 
928 IFT$="C"CLS:60TCl465 
925P*=T*:GQT0488 
93'8 PRINT . IHPUT'TRESS =ENTER= TO TURN PflGE",X$.CLS:GGT0855 




LOST- 
ONE AUTHOR 



We published a piece called CASSETTE CON- 
TROLLER in the July issue of Prog/80, by John D. 
Eaton. We want to send Mr. Eaton a check but alas, 
his mailing address is nowhere to be found. If you're 
out there somewhere, John, please get in touch so 
we can pay our just debts. 



20 



I 

N 
V 
E 
N 
T 
O 
R 
Y 




by Roger Robitaille, Sr. 

Inventory 'S* is an exciting advance in 
small business software for the TRS-80. Its 
in- memory system of data storage solves the 
problems of both sequential and random access 
files while providing extremely fast, random 
access to any record. Other advantages include 
the ability to use any combination of characters 
for stock number, an exceptionally flexible record 
format (field names are user-definable), and the 
ability to store data to tape or disk and upgrade at 
any time. Up to 150 items can be stored per 16K of 
available memory, with stock number, descrip- 
tion, cost, vendor, reorder, and profit data in each 
record. An important feature is the ability to use 
your present stock numbers (a sort function is 
included), unlike competing systems which force 
you to use a different "record number". 
User-definable screen and printer reports let you 
see just the data you need, when you need it. 

Inventory 'S' is an extremely powerful 
business management tool which can be used 
effectively with a 16K, tape based system or a 
48K, disk and printer system — a claim nobody 
else can make! 

Tape version, 16K (min.), Level II — $24.95 
32K Disk version - $39.95 

(same as tape, but on diskette with additional Disk I/O) 



I Disk Payroll 

Features: 

* Accepts any number of 

employees 

* Prints check summary on line 

printer 

* Prints out quarterly summaries 

SAMPLE OUTPUT: 

EMPLOYEE QUARTER-TO- DATE SUMMARY FOR PAYROLL PAY 2 



Employee 


Gross Fed. 


FICA 


Stale 


Cily 


Other 


David E. Smith 


456-78-9999 


500.00 123.81 


30.00 


20.00 


10.00 


0.00 


Cindy D. Taylor 


444-55-6666 


500.00 123.81 


30.00 


20.00 


10.00 


O.OO 


Phi Up G. Jones 


454-54-5454 


280.00 27.78 


16.00 


11.20 


5-60 


000 


Jane Doe 


555-55-5555 


240.00 23.81 


14.40 


9.60 


4.80 


0.00 


J.T.Johnson Jr. 


511-11-5111 


400.00 34.12 


24.00 


16.00 


8.00 


o.oo 


Mary M. Marks 


40O00-0004 


280.00 34.12 


16.80 


11.20 


5.60 


0.00 


ChKX INFORMATION USTWG FOR PAYR0U.PAY2 JWVEMBER M, T9n> 




Name 


Soc Sec No. 


Gross Fed. 


FICA 


State 


City 


Other 


Net 


David E. Smith 


456-78-9999 


500.00 12.81 


30.00 


20.00 


10.00 


0.00 


316.19 


Cindy D. Taylor 


444-55-6666 


500.00 123.81 


3O.00 


20.00 


10.00 


000 


316.19 


PWBp G.Jones 


454-54-5454 


280.00 27.78 


16.60 


11.20 


5-60 


0.00 


218.62 


Jane Doe 


555-554565 


240.00 23.18 


14.40 


9.60 


4.80 


o.oo 


188.02 


J.T. Johnson Jr. 


511-51-5111 


400.00 66.11 


24.00 


16.00 


8.00 


0.00 


295.89 


Mary M. Marks 


400-000004 


280.00 34.12 


16.80 


11.20 


5.60 


o.oo 


212.28 


Company 




2200.00 388.81 


132.00 88.00 


44.00 


0.00 


1547.19 


SUMMARY OF ALL EMPLOYEES (ACTIVE AMD TERMINATED) 


Gross 


Fed 


FICA 


Stale 


Cily 




Dther 


QTO 2200.00 


388.8t 


132.00 




88.00 




44.00 


000 


YTO 6515.00 


1121.92 


402.50 




363.00 




28.00 


40.00 
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TheSaftware Exchange 

b.Njrrf Vn (1. ft« Wt .1 <*vrf.:\» I <>«>!! HI l-(,7.l-1hU 



Level II, 16K $59.95 




MAIL 
LIST II 

by Roger Robitaille.Sr. 



IDEAL for all sorts of small 
mailing applications, such as 
small businesses, clubs, church- 
es; for advertising, newsletters, 
announcements, press releases -- 
endless possibilities. We use it 
for a 15,000-name mailing list, 
yet it is perfect for lists as short 
as 100 names! You can store 1000 
records per data disk, use as 
many disks as you like . . . 

Each record includes: 

RECORD NUMBER 
RECORD CODE 
COMPANY NAME 
NAME 
ADDRESS 
CITY/STATE/ZIP 
PHONE NO. 
GREETING 
PRODUCT CODES 
DATE 

Utilities include SORT, MERGE 
MOVE, BREAK, EXAMINE, and 
UPDATE. 

Prints labels 1 , 2. or 3 across. 
Sequential file structure makes the 
most efficient use of disk space: all 
alphabetic items can be as long as 
necessary. 

Allows data entry on a 4K, Level II 
cassette system. 

2 Disk Drive, 32K minimum $99.95 




IheSattwaiv Exchange «~ 




"'DISK EXPANSION PACKAGE*" 

HARDSIDE SPECIAL PRICE $889.95 



This package includes everything necessary to add disk 
capabilities to your TRS-80. To buy everything in this package 
at the local Radio Shack store would cost $1100.00. 

PACKAGE INCLUDES: 

• 16K RAM Expansion Interface 

• PERCOM Data Separator, Installed 

• PERCOM TFD-100, 40-track disk drive 

• Dual disk drive cable 

• NEW DOS Disk operating system 

• 10 BASF diskettes 



"•DELUXE DISK EXPANSION PACKAGE"* 

The Deluxe way to get everything you need at a great savings. 

PACKAGE INCLUDES: 

• 32K RAM Expansion Interface 

• PERCOM Data Separator, Installed 

• Dual PERCOM TFD-100, 40-track drives 

• 4-drtve cable 

• NEWDOS+ Disk Operating System 

• 20 BASF diskettes 

HARDSIDE SPECIAL PRICE $1449.95 





*■* EFFECTIVE: DECEMBER 1, 1979 ** 

LIST OUR USED USED 
PRICE PRICE OFFER PRICE 



TRS-80 COMPUTERS: 

Level-I 4K 

Level-I 16K, w/keypad 

Level-ll 4K 

Level-ll 16K 

Level-ll 16K, w/keypad 

EXPANSION INTERFACE: 

OK 

16K 

32K 

DISK DRIVES: 

Percom, TFD-100, 40-track 
Percom, dual TFD-100 
Percom, TFD-200, 77-track 
2-drive cable 
4-drive cable 
Radio Shack, -0 
Radio Shack, -1, 2, 3 

PRINTERS: 

Line Printer III 
Centronics 779-2 
Line Printer II 
Centronics 730 
Centronics P1 * 
Quick Printer II 
QP-II Exp. Int. Cable 
" Cable required 

ACCESSORIES: 

Telephone Interface 
16K Memory Kit 
16K Memory Kit for E.I. 
RS232-C Interface 
TRS-232 Interface 
Data Dubber 



$499 


$449 


$300 


$400 


$729 


$659 






$619 


$559 


$350 


$500 




$669 


$450 


$625 


$849 


$769 


$475 


$675 


$299 


$269 


$165 


$230 


$448 


379/403 


$245 


$340 


$597 


479/537 

$399 

$795 

$675 

$29 

$39 


$325 


$440 


$499 


$469 


$290 


$390 


$399 


$459 


$270 


$370 


$1999 


$1849 






$1598 


$1095 


$655 


$850 


$999 




$545 


$750 


$999 


$899 


$545 


$750 


$499 


$419 


$275 


$380 


$219 


$197 


$125 


$165 


$20 


$18 






$39 


$35 






$199 


$179 
$99 
$95 


$100 


$150 


$99 


$89 
$49 


$55 


$75 



COD orders require 
25% cash deposit 



Prices do not include shipping 

Prices subject to change 
without notice 



HardSide's new retail location has finally opened! 
Come See Us! 

6 South Street Milford, New Hampshire 03055 (603)673-5144 

'Radio Shack and TRS-80 are trademarks of Tandy Corporation. 
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CHOOSING THE RIGHT 
LANGUAGE 



by Lance Micklus 



Which computer language is the 
best language? The answer is, "None 
of them." In any specific situation, 
one language may be better than 
another. The proper choice can 
make the difference between a well 
written program and a poor one. 
There are times when even Level I 
BASIC is the best language to 
choose. 

One very good reason for selecting 
BASIC as the language to write in is 
because it's the only language you 
know. There's nothing wrong with 
that, but it might be much better if 
you had a selection greater than 
one. 

There are several popular languages 
you can run on the TRS-80. These 
are BASIC, PASCAL, FORTRAN, and 
machine language. Under TRS-80 
CPM, you can also get COBOL. We 
will not include COBOL in this 
discussion, because so few people 
have it. And then there is 
MMS FORTH, which does not have 
the wide acceptance the others 
have, either. Although that may 
change, we will also leave FORTH 
out of our discussion. 

PASCAL appears to be a big up-and- 
coming language, but the TRS-80 
version, distributed by FMG, is a 
disappointment. It has single preci- 
sion math, and is thus worthless for 
any serious work with numbers. Sec- 
ond, PASCAL, like other fringe 
languages, lacks the good I/O han- 
dling that BASIC, FORTRAN, and 
COBOL have. What many people 
are calling PASCAL, is PASCAL plus 
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the I/O handlers of another 
language, often FORTRAN. That 
gives you a combination of PASCAL 
with FORTRAN format statements. 
The third problem with TRS-80 
PASCAL is that it is still under 
development. It costs you $150 to 
buy a prototype. I still haven't got- 
ten my instruction manual and one 
of the books I ordered with my 
PASCAL package. So, for the time 
being, we will have to forget about 
PASCAL. 

That narrows the logical choices for 
the TRS-80 programmer to BASIC, 
FORTRAN, and machine language. 
These are all good choices. Any can 
be run on a TRS-80 without special 
operating systems which must be 
purchased separately. And all can 
be loaded and run on either tape or 
disk systems. Thus, most people 
could put programs written in any of 
these languages to work 
immediately. 

Many TRS-80 programmers have not 
had experience with FORTRAN. And 
that's a shame. FORTRAN is an old 
language, but it's still nice to work 
in. 

FORTRAN'S advantages are 
numerous: it's fast, the coding 
technique is protected, it has power- 
ful library functions, it is an ex- 
cellent number cruncher, its func- 
tions are complete subroutines in- 
stead of single lines, and it inter- 
faces easily with machine language 
subroutines. (The last feature 
eliminates loading machine 
language programs, entering BASIC, 



and trying to tie into the machine 
language programs with USR func- 
tions, especially if you're passing 
several arguments to and from the 
machine language routines.) 

FORTRAN does have its bad points. 
Unlike BASIC, FORTRAN programs 
must be written with a text editor 
program. The code must then be 
saved on disk. Now the FORTRAN 
compiler must be called to create a 
/REL file. If syntax errors are found, 
you must load the source code back 
into the text editor, and repeat the 
process. After eliminating the syntax 
errors, you must then LINK the /REl 
file to create machine language 
code which can be executed. 

Debugging your FORTRAN program 
can be a difficult, time-consuming 
task. There are no line numbers in 
the machine language code, so it's 
difficult to figure out where in 
memory anything is. There's no way 
to start and stop the program at will, 
as there is in BASIC, just by pressing 
the (BREAK) key, so it's hard to 
figure out what your variables are 
doing. 

Some of the large timesharing com- 
puters have special debug options in 
their FORTRAN programs which 
help overcome these problems. But 
the TRS-80 FORTRAN is minimal, so 
you're left to your own devices to 
find problems. Unfortunately, in 
order to keep the FORTRAN com- 
piler and run time package small, 
Microsoft had to leave out a number 
of error checking features which 
normally would identify problems 
for you. 

A case in point is THE MEAN 
CHECKERS MACHINE which 
developed an interesting problem 
when the forced jump option was 
added. After coding in all of the ad- 
ditional instructions, and taking 



care of syntax errors, I finally got a 
good compile and link. I loaded 
TMCM into memory. When the 
checker board appeared on the 
screen, I entered my move. It was re- 
jected. No move I could make was 
considered legal by the computer. 
So I typed UMOV, which lets the 
computer take its turn first at the 
beginning of a game. In less than a 
second, the computer declared 
itself the winner even though not a 
single piece had been moved. It 
prompted me to hit the (ENTER) key 
and it came back alt sad because it 
lost the game. But wait a minute, 
nobody had even made a single 
move! 

It took me eight hours to find the 
problem. One of the arguments be- 
ing passed to a subroutine was the 
constant 1. This gets passed to 
another subroutine, which passes it 
to a third subroutine. The third 
routine changes the constant 1 to a 
2, but later puts it back to a 1. That 
is a no-no. It does prove, indeed, 
what Murphy's Law says about com- 
puter programs. "ALL CONSTANTS 
ARE VARIABLE, AND ALL 
VARIABLES ARE CONSTANT." 

O.K. I can take a hint. I changed the 

argument to a variable whose value 
was 1. The variable worked like a 

constant and the problem was 
solved. 



The worst problem was a subroutine 
called TITLE. TITLE was written in 
machine language. All it does is 
display THE MEAN CHECKERS 

MACHINE title and copyright on the 
screen for 8 seconds, and then 
returns to the calling FORTRAN pro- 
gram. No arguments are passed. 
TITLE is a very simple little pro- 
gram. Yet, it blew up THE MEAN 
CHECKERS MACHINE. Why? 
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The problem had nothing in the 

world to do with the TITLE 
subroutine. One of my variables was 
never set to zero. It turned out that 
whenever I loaded TMCM, that 
memory location just happened to 
be zero'd. Luck! But when i added 
CALL TITLE to the program, it 
shifted that variable's location three 
bytes higher, and it wasn't zero 
there any more. 

Now that we know what a terror 
FORTRAN can be, let's look at 
BASIC. We can code and run im- 
mediately. This makes it a lot easier 
to work on and debug a program. 
We can easily set break points with 
the STOP command and check 
variable. In BASIC, all variables are 
variables, all constants are constant, 
and all variables start out being 
zero. 

But BASIC does have its weak 

points. The biggest problem with 
BASIC is the fact that it's slow. 



Before writing THE MEAN 
CHECKERS MACHINE in 
FORTRAN, I had a working version 
written in BASIC. The BASIC version 
took 10 seconds to generate a play- 
ing board, while the FORTRAN ver- 
sion takes about a quarter of a sec- 
ond. Playing at an IQ of 2, the 
BASIC version took five minutes to 
find a move. The FORTRAN version 
takes 40 seconds and does 50% 
more work. 

The final alternative to the TRS-80 

programmer is to write in machine 
language, such as the Radio Shack 
Editor Assembler and the Microsoft 
M80 assembler and L80 linker. 

There are two major advantages 
with machine language. One is fast 
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execution speed, and the other is 
that the memory requirements are 
usually smaller. No compiler can 
write code as well as the shrewd and 
cunning programmer. In addition, 
the code is kept rather secret 
because you can't list it very easily. 
Your source code can be loaded 
with tons of remarks, and is self- 
documenting, yet the remarks never 
appear in the finished product 
because remarks generate no code 
in memory. 

In machine language, you are ac- 
tually controlling the machine. In 
BASIC, you are spending most of 
your time solving a problem. 



EDTASM is the Radio Shack 
Editor/Assembler which is also 
available on disk from Apparat. It is 
an in-memory program, which 

means the maximum size of the pro- 
gram you're building is limited by 
the amount of memory in your 
system. Being both editor and 
assembler in one, you can code and 
then compile without reloading. 
This makes errors easy to fix. Once 
the syntax errors are fixed, you can 
assemble the machine language 
code, save your source code, and 
run. Because it is an absolute 
assembler, you know where 
everything in memory is from the 
listings you can get on your printer. 
This makes debugging a lot easier. 



The major drawback to EDTASM is 
that it will not assemble large pro- 
grams. ST-80D is a prime example. It 
was written with ari earlier version 
of EDTASM which was modified to 
run under TRSDOS. Although it has 
fewer features than the Apparat 
one, it does have more memory to 
work with. Even with a 48K system, 
ST-80D completely fills the memory 



of the machine. The Apparat 
EDTASM will not assemble ST-80D 
because it runs out of memory. This 
means that little more can be added 
to ST-80D because there is just no 
more room to assemble it. 

Microsoft's M80 assembler is disk- 
oriented. It is limited not by 
memory, but how much room you 
have on your disk drives. Just on 
that basis alone, it will assemble a 
much larger program than EDTASM. 
However, by writing several 
machine language programs and 
linking them together, huge 
machine language programs can be 
assembled. This is, in fact, how 
Level II BASIC, which is 12K. was 
assembled. 

A second powerful feature of M80 is 
conditional assembly. This lets you 
write code which can be assembled 
or not, at will. Using this technique, 
you can write two routines, one for a 
Level It machine, and another for a 
disk TRS-80, and include both in the 
same code. By changing one true or 
false condition, you can assemble 
either version. 

But M80 does have its drawbacks. 
Like fORTRAN, you have to use an 
editor to code, an assembler to get a 
/REL file, and then the linker to get 
machine language code. In other 
words, there are a lot more steps. 

If you're lucky enough to know 
three computer languages, how do 
you decide which language to use? 
The best way I can answer that is to 
give you some examples, based on 
my own experience. 

STAR TREK III was written in BASIC 
for a very good reason. At the time i 

started to write the program, 1 still 
had a Level I machine, my EDTASM 
was on back order, and FORTRAN 
was still in the works. If I had to do it 



over again today, 1 would code it a 
little differently, but I would still 
use BASIC. 

BASIC executes the program fast 
enough; time is not a major prob- 
lem. BASIC has all the computing 
power needed to make the program 
run. Of all of the languages, BASIC 
is the easiest to write code for, and 
debug. And, from a marketing stand- 
point, people prefer games written 
in BASIC rather than some other 
language which they can't under- 
stand. 

THE MEAN CHECKERS MACHINE 
was written in FORTRAN mostly to 
get an increase in speed. Like 

BASIC, FORTRAN can handle arrays 
very nicely. On the other hand, 
FORTRAN is much easier to code 
than machine language, especially 
for a program which is so complex. 
Believe me, it isn't easy to code a 
13.5 K machine language program. 

KVP was written in machine 
language to get control of the 
machine. There are things you can 
do in machine language that you 
can't do any other way. Also, KVP 
can be in the machine running while 
the user runs his own program. Thus, 
there's no problem having the user 
integrate his program with the KVP 
program. 

MASTERMIND II is an example of a 
program written in the wrong 
ianguage. There's nothing wrong 
with it. It plays an almost 
unbeatable game, and the display is 
nice. But, it would best be written in 
FORTRAN which would still give it 
the speed, but make the coding job 
much easier. You have to remember 
that in machine language, you have 
to do all of the work. There's no 
such thing as a PRINT command in 
machine language. You've got to 
run the printer yourself. ■ 
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Lifeboat Associates, specialists in microcomputer disk software, is proud 
to offer the first professional disk-based language and utility package for 
the Radio Shack TRS-BO computer. Written by Microsoft, creators of Level 
II BASIC, the package runs on a TRS-80 system with 32K RAM, one or more 
drives and TRSDOS. The software ts supplied on diskettes and consists of: 

FORTRAN a true relocatable machine code compiler for 
ANSI FORTRAN X3.9 (except COMPLEX variables). 
MACRO ASSEMBLER a disk-based macro assembler 
utilizing Zilog mnemonics and producing relocatable 
code. 

LINKING LOADER a link-edit and load FORTRAN and 
assembler modules for execution. 
SUBROUTINE LIBRARY a complete library of 
subroutines existing as relocatable linkable modules for 
FORTRAN or assembler programs - e.g., double preci- 
sion, square root, natural log, transcendentals, etc. 
DISK TEXT EDITOR to create and modify FORTRAN and 
assembler programs as disk files: also can be used as a 
general purpose text editor for correspondence and 
other documents. 

TRI-80 FORTMfl 

SOfTIIMRC 

PACKAGES 



This high-powered 

professional software 

package with full 

documentation 

is available at the 

DISCOUNT PRICE OF $1 50. 
PER COMPUTER SYSTEM 



The Macro Assembler, Loader, Editor, and Cross 
Reference Utilities alone $80. 

The Fortran Compiler, Loader, Editor, and extensive 
library of scientific functions alone ftgQ^ 




The Software Exchange 

6SojthStreet,Box68,MMofd,NHOXlS5 603-673-5144 
* TRS-80 Is a registered trademark of Radio Shack and Tandy Corporation. 



30 






Symbol|c_Jrace_and Debug 

A powerful monitor for the TRS-80 with special ability in Tracing and 
Debugging. Single Step through machine language pr ograms or set up to 
three breakpoints, and look at this display format! 





flF BC OE HI IX IV flF' EC' BE' HL' SP PC 
8044 9080 C000 B77C 6432 FFFF 8182 BB00 4080 3FC8 41FC 4498 
4408 LO R,93 

AH the power of regular monitors as well. Look at these commands: 



A FiRSTO) LAST(FFFF) 

A FIRST 

8 

BVALA 

B VALA VALB(0> 

C 

D FIRSTiO) LAST(FFFF) 

EFIRSTfO) 

F FIRST LAST VALUE 

G. BRKPTS 13 max.) 

H FIRST LAST VALUE 

1PORT 

K 

L 

L SECTOR MEMORY COUNT(1) 

M FIRST LAST BLOCK 

N 

NO 

H VALUE 

N FIRST 

PORT VALUE 

P ' E> 

P ENTRY 

P FIRST LAST . <■■■ 

Q FIRST LAST 

R 

S FIRST LAST OPTTON(0) 

T COUNT OPTION(6) 

U HRST COUNT OPTIONiO) 

V FIRST LAST BLOCK 

W SECTOR MEMORY COUMT1.1) 

X FIRST LAST BLOCK 

2 FIRST LAST VALUE<0) 



ASCI! dump 

formatted ASCII dump 

start of branch tabls 

display In decimal 

hex arithmetic 

check system tape - ..■ 

dump hex 

edit memoty 

find byte 

set breakpoints, continue 

find word 

read port 

keyboard echo 

load system tape 

load from disk 

move memory 

display symbol table 

symbol table to tape 

define value for symbol table 

define start symbol table 

write to port 

Initialize memory blocks 

write memory blocks and start 

define a memory block 

calculate checksum 

display / modify registers 

disassembler 

trace Instructions 

unformatted laps I/O 

verify memory 

write to disk 

exchange memory 

zero memory 



18K, 32K, and 48K versions on one cassette for $24.95 
<U8e from tape In Level II or as a command file from Disk) 

The Software Exchange 

6 SbutfiStreet, Sox 6S,M/foraf / Nrf' 03055 603-673-5744 - 
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THE 

MCAN 

Checkers Machine 



bv Land- Mirhlus 




Our resident wizard has done it again! Designed in FORTRAN, run 
as machine language, this program turns your TRS-80 into an 
unbelievably wicked checker player! Four levels of play; at the 
most difficult, the machine may take ten minutes per move, as it 
attempts to assess all possibilities. MEAN CHECKERS MACHINE 
is to checkers what SARGON is to chess. (Level 4 is an exercise in 
humility!) 

Level II, 16K $19.95 

Disk $24.95 



The Best 

Has Gotten Better! 

Sargon, the program that came in 
first in the Creative Computing 
Microcomputer Chess Tourna- 
ment, has become Sargon II -$29.95 

•A vastly improved game 

• Faster response time 

•New level for beginners 

•Easier to pre-set board 

•Hint mode - What does the computer suggest 

Sargon II is the program that took 
on the maxi-computers in the West 
Coast tournament, and finished in 
the money! More thinking power 
than you ever expected in a TRS-80. 

Now in stock for immediate delivery! 




J1»e Software Excliaitge 

h Sojthbtrecl.Bux&i.Milttini.VKOWi HB-673-5VM 

Call (603) 673-5144 for immediate shipment. 

Still in stock - The original Sargon $19.95 
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Disk users are aware of a DOS 
command called DEVICE. Almost 
no one understands what DEVICE 
means, including Radio Shack, and 
just about everybody considers it a 
meaningless command. According 
to the latest information I have. 
Radio Shack has now dropped 
DEVICE. LINK, and ROUTE from 
the TRSDOS vocabulary, and no 
longer plans to support these 
features. Microsoft, I am told, is 
rewriting their instruction manuals 
for their FORTRAN package, to 
eliminate all reference to DEVICES. 

DEVICES are one of the most 
powerful features in the Model I 
operating system. The idea is not 
new. Anyone who uses a DEVICE 
oriented mainframe computer will 
tell you how hard it is to program on 
a system which is vector driven, 
such as the Model II TRSDOS. 

What's wrong here is this. First, 
DEVICES were never implemented 
in TRSDOS. So, it doesn't work. Se- 
cond, many TRS-80 users have never 
used any other type of computer 
system. So, they don't know what 
they are missing. 

VTOS 3.0, commonly called DOS 
3.0, by Randy Cook, the original 
author of TRSDOS, is what TRSDOS 
2.2 would have been, complete with 
operating DEVICE commands, had 
Cook and Radio Shack not parted 
ways. To date, it is the only TRSDOS 
compatible operating system that 
supports all of the DEVICE com- 



mands. Now that the DOS software 
is there to support them, the 
DEVICE commands start to make a 
lot of sense. 
What exactly is a DEVICE? 

It is something which does one of 
two things, or both. First, it will pro- 
vide, on request, one byte of data. 
Second, it can be sent one byte of 
data. Once sent, the data is gone 
and cannot be changed. The 
physical thing which is the DEVICE 
is not known to the operating 
system - nor does it care. So, the first 
thing that we learn about DEVICES 
is that one DEVICE is just like 
another. The only difference is that 
some DEVICES are input only, 
others output only, and some are in- 
put and output. 

The fact that all DEVICES appear 
to be the same is what makes them 
so very powerful, as we shall see. 

Since computers usually have 
several DEVICES, we must 
distinguish one DEVICE from 
another. To do this, we give each 
DEVICE a name. In our case, a 
DEVICE name is made up of three 
characters. The first character is 
ALWAYS an asterisk symbol. The 
next two characters are letters. 
Thus, we have DEVICES whose 
names are *KI, *DO, and *PR as 
standard DEVICES and names, even 
in Level II BASIC without a disk. 

If we output a byte of data to a 
DEVICE, how does it get to the 
physical thing we want it to? 



The secret is in a machine 

language program which is called a 
DRIVER. The DRIVER is the inter- 
face between the operating system, 
and a physical thing. A physical 
thing might be a keyboard, video 
mciitor, printer, cassette recorder, 
and so on. These are all physical 
things we can look at, touch, hold, 
etc. Or, to put it another way, and 
this is a poor way to define it, a 
physical thing is something that can 
break and will cost you money to 
fix. 

The DRIVER defines the DEVICE. 
It knows what the DEVICE can and 
cannot do. You cannot output a 

byte to a keyboard, or input a byte 
from the printer. 

Another property of the DRIVER 
is the fact that it may service more 
than one physical DEVICE. The 
same DRIVER may be used to ser- 
vice either cassette machine #1 or 
#2, even though these are two dif- 
ferent physical things. 

The third thing common to all 
DEVICES is that each one has its 
own Data Control Block, or DCB. 
This is nothing more than several 
bytes of information that is used by 
the DRIVER to do whatever it does. 
All DEVICES, have one thing in com- 
mon. The very first byte identifies 
what the DCB is for. Based on that 
information, the rest of the bytes in 
the DCB are assigned. Except for 
disk files, the second and third posi- 
tions in the DCB are the address of 
the DRIVER which uses the DCB. 

To input or output to a DEVICE is 
very simple. We simply load the DE 
register with the address of the DCB 
for that device. If we are going to 
output to the DEVICE, we put the 
byte in register C. Then we call ad- 
dress X'lB'. If the zero flag is NOT 
set, then there was an error and 
register A contains the error code. 



To input from a DEVICE, just load 
registers DE with the DCB address, 
and call address X'13'. If the zero 
flag is NOT set, there was an error 
and register A contains the error 
code. If the zero flag was set, then 
register A contains the byte which 
was input. 

Now that's power. It mtans that 
you, as a machine language pro- 
grammer, do not have to worry 
about DRIVERS, whether you are 
dealing with a printer or a file. You 
treat them all the same way, as 
DEVICES, and let the operating 
system do the work. The DCB and 
the DRIVER can be anywhere in 
memory. 

This is the secret to making KVP 
work. KVP is nothing more than 
three DRIVERS - keyboard, video, 
and printer. All KVP does is change 
the address of the drivers in the *KI, 
*DO, and'PRDCB's. 

Here's something else to think 
about. In BASIC, did you ever stop 
to think that PRINT, LPRINT, and 
PRINTS (for file I/O) all have the 
word PRINT in them? BASIC handles 
all of these statements exactly the 
same way. The only difference is in 
which DCB it uses to output the 
bytes. 

And how about this? Take RSM2D 
and look at Microsoft's M80 
assembler program. Please notice 
that nowhere does it call addresses 
X'4436', X'4439', and X'443C. In 
other words, it appears, at first, that 
it never reads or writes to files. BUT 
IT DOES! You will find calls to X'1 El- 
and X'13'. That's right. It does not in- 
put or output to files. It inputs and 
outputs to DEVICES.. AND A FILE 
CAN BE TREATED AS IF IT WERE A 
DEVICE. Therefore, input and out- 
put can be processed by anything 
-ANYTHING! 
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Now, use RSM2D and follow a 
CALL 33H. First, it toads DE with the 
address of the *DO DCB. Next, it 
jumps to address X'18'. At this loca- 
tion, the DE register is assumed to 
have the address of the DCB. It now 
sets up the registers to indicate an 
output function. 

We couid put the *DO DCB any 
place in memory, in which case we 
bypass the first step by loading DE 
with the address of our newly mov- 
ed *DO DCB. instead, we just call 
X'lB' directly. The only advantage 
in keeping the *DO DCB in its pre- 
sent location is it saves the trouble 
of loading register pair DE with the 
DCB address. 

What does all of this mean to the 
end user who is running his payroll? 
It means that a summary report is 
sent, not to the line printer, but to a 
DEVICE. Thus, the user, when he 
runs the program, can decide where 
he physically wants the output to 
go. In a typical situation, a payroll 
program makes only one summary 
report. Suppose, on some special oc- 
casion, you need five reports. Then, 
from the DEVICE you normally send 
the output to, ROUTE the output to 
a file. After running your payroll 
program, RESET the DEVICE to 
CLOSE the file. Now, PRINT the file 
five times. 

Here's something else you can do. 
You can make your own DEVICES 
up. A case in point was THE MEAN 
CHECKERS MACHINE. The source 
code file for all of the machine 
language subroutines is 32 granules. 
This part of the program was written 
for the M80 Microsoft Assembler. 
To get a listing from the assembler, 
you would normally specify a /LST 
file. After assembly, you would just 
print the /LST file. 



There were two problems with 
this. First, the /LST file produced is 
more than 67 granules. The second 
problem is the way the listing ap- 
peared on my printer I kept my 
listings bound in report folders. Un- 
fortunately, the binding blocked the 
leftmost edge of the paper from 
view, so I couldn't always see all of 
the information on the page. What 1 
needed was the ability to tab each 
line 10 spaces before anything was 
printed on a page. 

The solution to the first problem 
was very simple using DOS 3.0. 
Rather than specifying a /LST file, I 
specified a DEVICE, which was *PR. 
That made it possible to print this 
rather large listing with no problem 
at all. 

The solution to the second pro- 
blem was a little more work, but was 
worth the trouble. Because the pro- 
blem of the left hand margin comes 
up so often, I simply created my 
own new DEVICE which I called 
*LM. The letters are my initials. If 
your name is George Blank, then l 
guess you can change the DEVICE 
to 'CB. Why not? 

The assembly listing at the end of 
this article shows you how I wrote 
the DRIVER program from my new 
*LM DEVICE. It was written for the 
Microsoft M80 assembler, but I 
don't think you'll have any trouble 
modifying it for EDTASM. If you 
decide to put this little program 
together for yourself, remember one 
thing. Since this is a DRIVER, the 
COMMAND file you create must 
have the file extension /DVR and not 
/CMD. What I did was create this 
program under file name of 
SPACE/CMD and then renamed the 
file SPACE/DVR. Don't let the exten- 
sion throw you. DRIVERS are 
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nothing more than command files, 
they just use a different file exten- 
sion. 

To create the DEVICES *LM, you 
type the following line from VTOS 
3.0/ s prompt of "DOS READY": 

SET *LM SPACE 10 

What happens is the following: 
First, the SET command will load 
the file SPACE/DVR. Then, it will 
locate a place in memory where the 
DCB is to be built. Control will then 
be turned over to my DRIVER as 
follows. HL will point to the next 
ASC character on the input line. In 
this case, it will be pointing to the 
"1" in "10". DE will point to the ad- 
dress in memory where i should 
build the DCB for my DRIVER. My 
program looks at the number 10, or 
whatever number was typed in, 
which is the number of spaces to 
TAB at the beginning of every line. 
This number is put into my DRIVER 
routine. The DRIVER routine is then 
loaded into high memory, and 
HICH$ is reset to protect my 
DRIVER'S memory from use. My 
program also builds the DCB, speci- 
fying that this DEVICE is output on- 
ly, with the second and third bytes 
of the DCB being the address of my 
DRIVER. 

Be sure you're clear on this. The 
program I made is NOT the DRIVER. 
Rather, it is a program which 
BUILDS a DRIVER. The name of the 
DEVICE is defined by the command 
you give DOS 3.0. SET *LM means 
you want to name your DEVICE 
*LM If you type *GB, then your 
DEVICE will be named *GB. So, 
anybody can use my routine and 
call it anything they want. 

Once control returns back to 
DOS 3.0, the DEVICE command 
should now show my new *LM 
DEVICE in the list. 



I'd like to make a subtle, but im- 
portant point about my DRIVER. It 
outputs to the *PR DEVICE. You 
should not think of it as outputting 
to the printer. It might very welt be 
that the *PR DEVICE is not a printer. 
So, what the *LM DEVICE really 
does is output to the *PR DEVICE 
anything it receives. Anytime a 
RETURN or FORM FEED character 
is sent, it will add a specified 
number of spaces after those 
characters. 

Now, my problem is solved. I 
have the M80 Assembler list to 
DEVICE *LM, but leave DEVICE 
•PR tied to my printer. M80 then 
lists on my printer, and every line is 
moved to the right 10 spaces. When 
I put the listing in my report folder, 
a large left hand margin is under the 
binding, and I can read all of the 
listing. 

Thanks to the DEVICE operation 
of VTOS 3.0, you can use my little 
program as a model, and go mad 
creating your own DEVICES. How 
about making one that converts all 
lower case letters to capital letters, 
but places a graphic symbol next to 
each character that was changed? 
That way you know which letters 
were lower case in the original out- 
put without an upper-lower case 
capability. 

Here's another interesting idea. 
How about building a device which 
encrypts any data sent to it, and 

another device which decrypts. This 
would give you a system where you 
could read and write to a disk file in 
scrambled form, yet your BASIC 
program, communicated through 
your DEVICES, always is seeing real 
information {i.e. decrypted). 

Now, here's the source code 
listing for SPACE/DVR which you 
can use as a model to make all of 
this possible with VTOS 3.0. ■ 
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TIRED OF DISK ERRORS? 

STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 

NEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80. NEWDOS corrects over 70 errors and 
omissions in TRSDOS 2.1 and disk BASIC, yet the two are 
completely compatible! Programs and files saved under one can 
be used with the other interchangeably. Going from TRSDOS 
2.1 to NEWDOS is like going from Level I to Level 1 1 : more 
power, more convenience, greater speed. 

NEWDOS NEWDOS+ 



Use all DOS commands 
(incl. directory) in BASIC 
Automatically load and run 
a BASIC program 
on power-up 

Produce variable cross- 
reference tables 

Open 'E' to add to 
sequential files 

Append files 

Use your line printer as 
a screen printer 

Renumber BASIC programs 

End keyboard bounce 



Editor/ Assembler for disk • 
Disassembler • 
(Z80 machine code) 
LM Offset-allows transfer of any • 
system tape to a disk file 
(automatically relocated) 
BASIC1-Level one BASIC • 
saved on disk 
LV1DSKSL - not a typo, this • 
saves and loads BASIC1 
programs to disk 
DIRCHECK-tests and lists • 
disk directory 

SUPERZAP-display/print/modify • 
any location in memory or on disk 



And, best of all, say goodbye to system crashes, lost data and 
wasted time caused by your old, bug-ridden system software. 
Apparat's NEWDOS is fully documented and available for 
only $49.95. NEWDOS +, Just $99.95 

NOTE: Use of this software may require documentation 
available only with the purchase of Radio Shack TRSDOS 2.1 
and/or the Radio Shack Editor/Assembler. 



TheSohwarc Exchange 




Editor's Recommendation: This la one ot the most valuable programs I own. I have used It tot tasks as 
varied as debugging, disassembling Level II. and storing my copy of Sargon II on disk for fast loading. 
The only other program I have that compares in value Is NEWDOS. — George Blank 




This is what you can do: 



A • ASCII DUMP: 
B- BINARY ARITHMETIC: 
C- CHECK TAPE: 
D- HEX DUMP: 
E-EDIT: 
F- FIND 1 BYTE: 
G-GOTO: 
H- HUNT 2 BYTES: 
I -INITIALIZE/INPUT: 
K- KEYBOARD ECHO: 
L- LOAD AND GO: 
M - MOVE: 
O- OUTPUT: 
Q- CHECKSUM: 
R- READ TAPE: 
S- SYMBOLIC DUMP: 
T- TEST MEMORY: 
U ■ USER: 

V- VERIFY MEMORY: 
W - WRITE TAPE: 
X ■ EXCHANGE: 
Z- ZERO MEMORY: 
©-BREAKPOINT: 
P- PUNCH: 
R - READ: 
L-LOAD: 
S-SAVE: 
Y - TRS232: 
-♦ - PRINT: 



Display ASCII equivalent of memory block 

Add/subtract in hex and decimal 

Check cassette tapes for proper checksum 

Display Hex equivalent of memory block 

Enter, examine, or modify memory in hex code 

Find and display single-byte hex codes 

Go to and execute program at specified address 

Find and display two-byte addresses 

Initialize or input data from port 

Type directly to screen or terminal 

Load a cassette tape and execute program 

Move any block of memory to specified location 

Output hex value to specified output port 

Compute checksum of specified memory block 

Read cassette tape (header or standard) 

Display memory in ZILOG Z-80 mnemonics 

Test memory block and display errors 

Allows user to write and execute new commands 

Compare any two blocks of memory 

Write any memory block to cassette tape 

Interchange any two blocks of memory 

Write zero or any hex code into memory 

Inserts breakpoint AT specified address 

Writes cassette tape in LEVEL-II SYSTEM format 

Read SYSTEM tape, display name, start address 

Loads specified disk sectors into memory block 

Saves memory block into specified disk sectors 

Set print parameters (baud, etc.) for TRS232 

Directs output to printer as well as screen 
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CLCCTRK 
PCflCIL! 

ESTbdUHas lypii g is fere! 

The Electric Pencil by Michael Shrayer 
is a true word-processing program for 
the TRS-80. Enter your manuscript, 
and let your computer do the work. 
Editing? Just position the cursor with the 
arrow keys . . . one-key commands let you 
change, delete, or insert. Fully 
adjustable margins, left/ right justifica- 
tion, variable spacing, page headings, 
and much more! Save and recall your text with tape or 
diskfiles. Typing everything 

from letters to reports is fast and Leve) \\ 16K tape -$100.00 
incredibly easy using The Disk version -$150.00 




Electric Pencil. 



(comes on tape) 




The Software Exchange 

6 SoLithSlreet, Box 68, Milford,NI 1 03055 603-673-5144 



Recommended for 
Small Businesses 



Small 

Business 

Bookkeepi 

mm wm& 



Based on the well- 
known Dome Book- 
keeping System. Posts 



expenses to as many as 42 

accounts (which you may 

customize). Produces video 

and line printer reports for" 

year to last week, this week, year to date; 

supports cash system of accounting; 

stores data on disk for fast retrieval. 




by Miller Microcomputer Services 
and Roger W. Robitaille, Sr. 



Available for 32K 
Disk' Systems - $24.95 



The Software Exchange 

. 6 SouthStreet, Box 68, Milford,NH 03055 603-673-5144 - 
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AN ALTERNATIVE 
TO A DISK SYSTEM 



by Wynne Keller 



In a recent editorial GB told of his 
love-hate relationship with a disk 
system for his TRS-80. Perhaps many 
readers feel a disk is the only option 
for their system if they want to leave 
the aggravations of a cassette 
system behind. At $300-400 for the 
disk and $100 for the Disk Operating 
System, not to mention $300 for the 
expansion interface, there has got to 
be a cheaper way - and there is. 
There is now available a machine 
called the Exatron Stringy Floppy 
(ESG) which will do almost 
everything a disk can dp at a frac- 
tion of the cost, not to mention 

4 6 



headache. We have both systems: a 
disk at work and ESF at home, and 
prefer the ESF. 

The ESF's merits are fast, reliable 
loads, and low cost. If you also use 
Level III Basic with it, you have 
almost all the commands a disk 
gives (the major exception being file 
handling capability). Exatron has 
recognized the importance of Level 
III with its system, and sells them as 
a unit: ESF for $200, Level III for 
$50, total $250. ESF loads a 16K pro- 
gram in 24 seconds. Failure of a load 
or save is very rare. It uses very thin 



tape in a business card sized wafer, 
connected to form a continuous 
loop so there is no more fast- 
forward hassle to find the right pro- 
gram. You simply shove the wafer in 
the slot, type @LOAD1 (or 2 or 
whatever number you have given 
the program) and the machine sear- 
ches for the right program and loads 
it. The speed and simplicity of this 
system will prevent the headaches 
that formerly seemed to be a painful 
part of owning a computer. 

if you load in Level III basic you 
acquire many DOS commands, and 
in addition you have abbreviated 
typing, which DOS does not. (Ab- 
breviated typing means certain let- 
ters plus a shift will print more com- 
plicated commands such as shift E 
= EDIT). This can be quite a time 
saver, once you have learned the 
letters. There is a catch to Level III 



however: It uses 5K of memory. 
Therefore, it doesn't really get used 
as much as you might like unless 
you have the expansion interface. 
We don't have one, so for my longer 
programs I have to regretfully set 
Level ill aside. DOS also uses a tot 
of memory: the difference is that 
with disk the expansion interface 
must be purchased. With ESF it is 
optional. If money is not so easy to 
scrape together you can get the ESF 
and Level 111 as one stage in your 
upgrade, and the expansion inter- 
face as the next stage later. After 
buying it all, you will still have spent 
$250 less than a disk would cost, 
and if you decide to live without the 
expansion interface, it is $550 less. 

To find out more about ESF. write 
or call the company at: Exatron Cor- 
poration, 3555 Ryder Street, Santa 
Clara, CA 95051, tel. 1-800-538-8559. 



NOTE 



On "String Crasher", by Clayton Schneider 
( September 1979 issue - PROG/80 ) 

The problem described in 
''String Crasher" seems to be 
associated with some defec- 
tive Level II ROMs, and ap- 
pears only at particular 
memory sizes. However, this 
is the kind of error that can 
drive you nuts because it is so 
hard to find. It is worthwhile 
to be aware of it. 
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* \ 



* X 



* V 



K \ 



On a trek through the vast uncharted center of the Sahara Desert in 
search of a missing explorer, you come upon a pyramid recently ex- 
posed by the shifting sands. Will you be able to collect its treasures 
and escape? Or will you join its denizens for that long eternal sleep? 

16K System Cassette $14.95 

Want to know what adventure is before you part with that much 
money? Try the Adventure Sampler! Adventure is a mini version of 
Adventure 1, offering hours (instead of weeks) of challenqe for only 
$5.95. 

Warning; This program may be addictive, leading to prolonged and nabitual adventuring. 



THE SOFTWARE EXCHANGE 
6 South Street Mil ford, NH 03055 
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A UTILITY PROGRAM 
THAT GREATLY EXTENDS 
THE KEYBOARD, VIDEO, 

AND PRINTER 
SUBROUTINES IN YOUR 
LEVEL II ROM! 



by Lance Mlcklus 



KVP runs under DOS or Level II BASIC. It Is relocatable under your 
control, and so may be used simultaneously with other machine 
language programs. At least 16K of memory Is required. 

Here are some of the 
things you'll be able to do: 



USE AN EXTERNAL KEYBOARD 

Or, use any other serial Input device In 
place of the TRS-80 keyboard. 



ELIMINATE A COMMON SOURCE OF 
PROGRAM ERRORS by running your 
keyboard In upper case only, or run In 
upper/lower case mode lust like a 
typewriter. 



PRACTICALLY ELIMINATE KEYBOARD 
BOUNCE. The amount of debouncing In 
user-adjustable. 



DISPLAY UPPER AND LOWER CASE 
LETTERS on your video monitor 
screen, (with hardware modification) 



SIMULATE A RADIO SHACK SCREEN 
PRINTER using an ordinary printer. 



USE MOST ANY ASCII SERIAL 
PRINTER. Such as Teletype 33 or 
Splnterm. 



TILL THE TRS-80 YOU HAVE NO 
PRINTER AT ALL 



EXCHANGE PROGRAMS WRITTEN IN 
BASIC WITH OTHER COMPUTERS. 
From the Sorcerer to the IBM 370 (and 
TRS-80's, tool) 



THE LIST QOES ON AND ON! 



Self-relocating for 16K, 32K or 48K systems 
$24.95 on tape $29.95 on disk 




Fie Software Exchange 

6 5cvthblH*H.Bo*Ul.M*nl.HH0X85 60J-67.i-.5J44 
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VARIABLE UNIQUENESS 
AND VALIDITY 



by Jeff W. Collins 



This program was designed to help 
keep that new program idea from 
running amok because of syntax or 
other problems caused by your 
innocently-chosen variable names. 

By checking your intended names 
on this program for validity and uni- 
queness before running and debugg- 
ing your program, you have the 

peace of mind of knowing that no 
invalid name, or - worse because it's 
hard to spot - two names with the 
same significance to the computer, 
will cause problems. 

So, before running your brand-new 
program, run your intended variable 
names through this name-checker 
first. It could be very valuable to 



you if doing it saves you the later 
time and frustration of trying to find 
out what might be wrong in a long, 
multiple statement line with a lot of 
levels of parentheses, and especial- 
ly if you like to use long variable 
names for clarity instead of the 
shorter, more symbolic names ... or 
even if you simply use a lot of short 
names in a long program. 

It could possibly spare you the in- 
dignity of making bad logic 
modifications to an otherwise 

workable program due to false 
assumptions about the cause of the 
results you got from your program. 
Finally, and unphilosophically, did 
you know that LESS is valid, but that 
MORE isn't? 



6CLS 




1 PRIHTTHiS PROGRAM CHECKS VfiRSHBLE HftHES VOU MIGHT USE IN A PR 


OGRAH, " 




2 CLEflR 2518 




'S DEFINT ft-Z 




4 DIM REi<il6>»fl»(iB8) 




5 '— M VRRItifeE NAME-CHECKING PRCWh-CHECKS FOR VALIDITY M 


UNIQUENESS Of EACH NAME ENTERED. 16K. 


BY JEFF w. COLLINS, 


WHEELING, M. Vft HftV 79 




6 PRINT-WHEN LONG NAMES ARE ENTERED, ALLOW 


T1HE FOR PROCESSING. " 


? ffjft 1=1 TO 2888. NEXT I: PRINT: INPUT "WHEN REflDV TO START, HIT 'E 


N7ER' a »X 




s as 




5 FOR 1=1 T0.U8 




IS REftDREta; 




ii NEXT I 
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12 PRIHT"EHTER EACH VARIABLE NAHE SUCCESSIVELY. ENTER. * UHEN DON 

E. " 

12 FOR K=l TO 186 

15 D*=INKEY$;IF D$="" THEN 15 

16 IF 0«="*" THEN 28 

1? IF ASC<D«>=12 THEN PRINT :G0TQ27 
19 PRINTMi 

21 ft*(K)=fl$<K)*0»:M=" 

22 SOTO 15 
11 NEXT K 

28 K=K-1 

29 CLS:PRHWVHIO VARIABLE ?«S", "INVALID HflHES", Tfl6<S8>"R6SER 
V£D WORD" 

30 FOR L=l TO K 

21 IF A*(L>="" NEXT L ELSE R=LtN<A$<L)>.RL=A5CC8*<L)J 

32 R*=*IGHT*<A*(L>, D:RR=flSC<R*> 

32 Lf=LEFT«RKL>* 1) .H2»=HIWO*a), 2> 1) 

24 IF CCOll AND SU=1 F'RINI"HHK.E A NOTE OF ANY INVALID NAMES. " 

25 IF C0>11 INfUT"TO SEE REST, HIT 'ENTER'. ",XY. CIS. PRINT "VALID 
'TRIABLE NAMES", "INVALID NfflES". TflB(M) "RESERVED W0RD".C0=8 

36 IF R=i AND HQKRD64 AND RL<91; 005*386. GOT 094 
3? IF R=l AND RD64 AND RL<9l GQSUB588 ; G0T094 

38 IF R=2 AND R064 AND RL-31 AND RK*7 AND RR<58 GGSU8506.6GTQ9 
4 

39 IF R=2 THEN IF <RR=33 OR RR=25 OR RR=36 OR RR=2?> AND RLJ64 A 
ND RL<91 GOSUB 588.G0TG94 

48 Rft=fSC<H2*> 

41 IF R=3 AND RU&4 AND RLC91 AND RW1 AND RR>4? AND RR<53 GGSU 

42 IF R=3 AWXRft=33 UK RR=35 OR RR=36 OR RR=37> AND RL>64 AND RL 
<91 AND RJt=RL GOSUB 56a: GOTO 94 

42 IF R=3 ANDiRL:>64AI«*.L<9i>AND(RH>4?Af^RpK5SJKt<D<FS=i30R Rft=55 
OR SR=26 OR RR=37>GOSIJB588.G0T094 

44 IF R=3 fiN&(RL>g4AI#RL\9i>AIC-<Rf04?ftfHDRPK58.!AND<RR>4?HNDRR<58) 
GOSUe566:GOT094 

45 FOR V=2 TO R-l.IF niDf';H*iL>,V,i)OL* THEN 4? ELSE NEXT V 

46 IF';RR=32 OR: RR=35 OR RR-36 OR RR=27> OR <RS=L*> QOSU8568.Q0T0 
94 

4? FOR 6=1 TO R:H=f6C<NID$(8*a>,G,i>>.IF HuT<H=22 OR A=25 OR H= 
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36 OR H-3?)flND NOT<H547SN0HC58)fWD N0KH:>64ftND«<31>G0SlJ69e6:GGTG 
94 ELSE NEXT 6 

64 FOR 1=1 TO 118 

65 FE=LEN<RE*<I».IF FE>R THEN 92 

66 FOR J*i TO R 

6? IF FE>R*1-J THEN 92 

88 6*=tllDt<FI$(L), J, FE> . IF 6*=*£*<I> THEN Q--1 . Q0SU6966 : SOTO 94 

81 XX=flSC<B*) 

82 IF N0K50O64 HMD XX<9i>HND N0T(XX>47 AND XX<58> AKDCXX=33 OS 
XX=35 OR XX=26 OR XX=37)THEN V=V+1 

90 NEXT J 

91 IF VM GOSU6980:GOTO 94 ELSE Y=8 

92 NEXT I 

93 S=i . PRINTA$<L> . CQUHTOOUKT+l 

94 NEXT L 

106 DATA e/fiBS/^»flSX»flTlta^CHR*»CWT,aEffcCLOSE»CLS»(»»CO 

NT, COS, CSN6, CVD. CV1* CVS, DATA, DEFDBL, DEFFN, DEFINT, DEFSNG, DEFUSR, D 

EFSTR, DELETE, DIM, EDIT, ELSE, END, EOF, ERL, ERR, ERROR, EXP, FIEU> 

110 DATA FIX, FOR, FRE, GET, GOSuB, GOTO, IF, INKEVt, INP, INPUT, INSTR, IN 

T, KILL, LEFT!, LET, LSET, LEN, LINE, LIST, LOAD, LOC, LOP, LOG, NEH, MERGE, ft 

ID*, t\m> HKII, |K5fc NWE, NEW, NEXT, NOT, ON, OPEN, OR 

126 DAT* OUT, PEEK, POINT, POKE, POS, PRINT, PUT, RANDOM READ, REM, RESET 

, RESTORE, RESUME, RETURN, RIGHT*, RND, SAVE, SET, SGN, SIN, SQR, STEP, STOP 

, STRING*, STR*. TAB, ThN, THEN, T IHE*, TROFF, IRON, USING. USR, VftL, fflRPTR 

, TO, SYSTEMS* 

121 IF S»>1 PRINT'MAKE ft NOTE TO CHANGE 'INVALID' VARIABLE NAMES 

132 IF SOI PRINT"NQ VALID VARIABLE NftHES HERE ENTERED. ":END 

135 PRINT'MHEN READY TO CHECK VALID VARIABLE NfiHES FOR" 

136 iNPtJT"DUPLICfiTE SIGNIFICANCE HIT ENTER'.";* 
148 FOR N=l TO L 

156 FOR NG=i TO L 

155 If N=N0 THEN 176 

156 IF WOO-"" OR A*<NO)="" THEN 170 

m IF LEFT*<ft*(N>,2)-LEFT*CA*(N0),2) THEN 189 
165 IF LEMfi*(H)K3 AND LEU<AJ<NQ)K3 Mi LEFT$';H*<NJ>i>-LEfT$<fl 
*vHO>,i> THEN IF <RIGKT*Cft*<N),l)= a !"> OR (RI6HT$<A*(N0?,i>= H !"J 
THEN 189 
176 NEXT NO 
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l«l NEXT N 

185 PRINFALL VALID VARIABLES HAVE BEEN CHECKED AGAINST ONE ANOT 

HER a :PRM"FORUNNAB£SS." 

18? IF AO=0 PRI«T"flLL MERE UNIQUE. NOW USE THEN TO TYPE IN A PRO 

GRAN. °:G0T0i88 ELSE PRINT*MAKE CHANGES TO THE VARIABLE LISTED RB 

(WE IT IS NOT UNIQUE. " 

188 FOR 1=1 TO 2588: NEXT IiPRIHT INPUT'TO SEE ONLY VALID, UNIQUE 
VARIABLE NAMES ENTER 8"; TT : IF TT=8 GOTO 798 ELSE END 

189 Xl=ftSC(RIGHTf<A$<N>, 1» :X2=RSC(RIGHT*(R$OiO>, 1» : !F((Xl>tf AN 
DXl<58>AND(X2=350ftX2=3«]RX2=37»0R( (X2M?flNDX2<58)flND<Xl=3S0RXl= 
360M=3?))0R(<}l=350RXl=360RXl=3?)AND<XlOffi>)0RUX2=35C«^-360 
RX2=2?)BND<X2OXi»GGTOi?0 



196 IFfRIGHT* (Af <N>, l)=RIGHT*<A$(Nu>, l»0R<Xl)64flNDXi<91)0R(X2>6 
4flNDtt<9i)0R<Xl>47IM«l<58)aKX2H?fiNW2<58)0R(}tt=»>0R(X2=33)a 

sueseo else i?8 

208 PRINTfl$<N)»M<NO):IF LLXR THEN fif <«)="" 
218 IF NQKLLXR) THEN fl*<NO>="" 

228 INPUT-HIT "ENTER" WHEN READY TO RESUME. "-X:GOT01?e 
288 FC^l:LL<EN(A*<N>>:U?=l^iftf(NO>>.PRIHT u CHAWj£ THE "; 
218 IF LULR PRINT'LGNGER ONE ON THE LEFI. ".RETURN ELSE IF LRvLL 
PRINT"LONQ£R ONE ON THE RIGHT. ": RETURN ELSE PRINT"OHE ON THE RI 
GUT.*: RETURN 
m S=l:PRINTft$<L):CO=CO+l: RETURN 

702 FOR 1=1 TO L-l 

?16 IF w*<IK>"" PRIHTH*U>:J=J+1 

?15 IF J>ii AND IOL-1 THEN J=8.1NPUT"T0 SEE REST, hIT 'ENTER:". ■ 

.XV .CLS 

728 NEXT I 

730EHD 

888 PR INT "SI6HIF ICflNT LETTERS AND/OR TYPE DECLARATION CHARACTERS 

u . PRINT"BELOW CONFLICT ".IF ftftN>=«CN0>TMEH818 ti.SE G0SUB286:RE 

TURN 

816 PRINT "SINCE BOTH NAMES ARE THE SAS€, WAS ONE ENTERED TNICE". 

PRiNT"OR HERE TWO UNIQUE NAPES INTENDED? CHECK PROGRAfi ".AD^i.RE 

TURN 

980 SU=i.C0=e0+l:PRIHnAe<i5)HJ(L), :fll(L)="".IF Q=l PRINTTABwet} 

RE*a>.8=e.R£TuRN 

318 CO-CO+1: PRINT TflB(49>*INWL. CW*<SJ. '■.RETURN 
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Shedding 

Light On 

A DIM 

Area 



by James Garon 



As the TRS-80 community has grown 
more sophisticated, our programs 
have grown in complexity. Often 
our understanding of certain "side- 
effects" resulting from these new 
techniques fails to keep pace 
without intricate programs. One 
potential pitfall is in the placement 
of the DIM statement. I found this 
out accidentally when creating a 
program for a friend. The program 
made extensive use of arrays. I 
found that as the program was runn- 
ing, there would be frequent pauses 
in the calculations - pauses which I 
had not programmed. Carefully 
enter the following nine line pro- 
gram to see an example. Can you 
discover where the computer is 
pausing? 



18 CLS : DEFSTRfi : R=9 : G*=R ; DIM 9(4506) :fi<0)=STRING$<?, 32) :fi(i)="=EMT 
ER= 

28 CLS: PR J NT "PRESS =ENTER= FOR DEMONSTRATION OF DIM DELflV 

30 Q=l-G : PRMG6, fi(6) ; : FQRJMT026 : IFINKEV*OCHR*(13>NEXT : 60TQ38 

40 CLS: PRINTS ="> :X=2:PRINTX:X1=X 

58 PRIHT'TWO PLUS TWO 1S":Y=X+X:PRINTV:Y1=¥ 

60 PR1NT"DID "> :fi="":PRINT H VGU "; :B=e:PRIHT"KNOM "■■ :C=9 

70 PRINT'YOUR "i :D=8: PRINT "COMPUTER ".• :E=8: PRINT "WftS "; 

88 F=0:PRIHT"SO ",- :G=8:PRINT"S"; :H=6:PR1KT"L"; :I=J:J=K 

90 PRIHT'O"; :K=C::L=K:M=E:PRINT"W?" 



Each time a new variable is placed 
on the left of an equal sign ( = ), the 
program pauses. Why? The culprit is 
the innocent-looking DIMension 

statement in line 10. This particular 
DIM statement causes 13,500 bytes 
to be reserved for string array 
variables. Now array variables (that 
is, DtMensioned variables) are 
stored above all non-array (or sim- 
ple) variables. Once you have used 
the DIM statement, every new sim- 



ple variable has to find a home. The 
computer must make room for the 
new variable by moving all 13,500 
bytes of array. This is what takes all 
that time and causes those unex- 
pected delays. 

Is there a solution? Yes. Just men- 
tion each simple variable you will 
be using at least once before the 
DIM occurs. Add the following line 
to the program above: 



5 B=8 : C=B : D=B : E=B : F=6 : G=B : H=B : 1=6 : J=B K=B : L=B :M=B : *=B : Xi=8 : Y=B : V 
l=B.8f=" 



This time there is no delay when the 
program is RUN. If you "listen" to 
the program on an AM radio (Insert 
a ' or REM at the beginning of line 5) 
■you will hear the distinctive sound 
of "creeping arrays" during each 
pause. Listen for this sound in your 
own programs. When you hear it, hit 



BREAK (or you might try listening 
for it with TRON). Notice which 
variables appear to the left of the 
equal sign ( = ) and mention them 
before the first DIM statement You 
should notice a rewarding increase 
in speed. ■ 
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PRINT SPOOL ER for the, 
TRS-80 Microcomputer \ 

and a Parallel Line Printer* 



\ 




® \ This utility will allow you to print out a data file from 
disk at the same time you are running a program for 
© something else on your computer. Now you don't have 
to stop working on your program to get a listing. 

Procedure: Save file to be printed as an ASCII file. 
*> Run the SPOOL routine from DOS t 

j Tell SPOOL the name of the file to print out. 

I Load BASIC and run your other program. 

Restrictions: BASIC execution speed reduced 30/ 
| Printer operates 35/slower » ©V 

' File to be printed must be ASCII file v 

Any printer commands in program you are run- 
ning will be printed to screen Instead of printer 
Will NOT work under NewOOS (TRSDOS 2.3 and 
VTOS 3.0 will work) 



Price $19.95 on tape, $24.95 on cassette 








;tO*D ■ *$C< COlUB iK'U*H n»(n« QOTO 

«T»NCM( ST81 CHM< vAIPTIf llNt 



SHORTHAND for LEVEL II 
and DISK BASIC 



TSHORT™lets you type LEVEL II and/or DISK BASIC more 
quickly and accurately than ever before. Save up to 90% 
programming time and achieve 100% accuracy. 

31 programming statement keys. 

KUSTOM™key, up to 64 characters - changeable anytime. 

42 key decals (see picture). 10 area different for DISK users. 

A single, shifted-key entry types entire statement on screen. 

Fast, efficient machine language. 

Uses 580 bytes of LOW memory, i.e.: No MEM SIZE req'd. 

Comes on cassettes, one side LEVEL II, the other for DOS. 

Compatible with DOS2.1,2.2,2.3, NEWDOS, KBFIX.etc. 

DOS version loads to and executes from disk via TAPEDISK. 

Features self-entering commands: CONT; GOTO10: 
KUSTOM ™ (Self-enter optional) 

TSHORT™ W/4 page instruction manual $19.95 




TheSattware Exchange 

bSa*hStvel,Bmb8.Milk>id,NH (BOSS GCB-673-Sm 
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PREFERENCE POLL 

by George Blank 




As the pastor of a modest size 

church with a full size program, one 
of my chief responsibilities is to 
make the best use of the leadership 
talents of our members. This year 
my Radio Shack TRS-80 Computer 
was a big help in matching people's 
talents and preferences to the job 
they do for the church. 



There are nine persons on our 
church board, and each one has a 
second responsibility. The board 
consists of three classes of three 
persons each. One class is elected 
each year, and at that time we 
rotate the committee assignments. 
Here are the positions that have to 
be filled: 



•Clerk of Session 

'Chairman of Worship Committee 

^Chairman of Christian Education Committee 

"Chairman of Stewardship Committee 

• Chairman of Property Committee 

• Chairman of Major Mission Fund Committee 
•Chairman of Budget Committee 
•Chairman of Nominating Committee 

• Chairman of 100th Anniversary Committee 
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Normally we meet at the manse 
for coffee and cookies on a Sunday 
afternoon and ask people to 
volunteer for committee assign- 
ments, last year the process took an 
hour and a half. This year we were 
done in half an hour, leaving us 
more time to enjoy our refreshments 
and each other's company. The dif- 
ference, a saving of ten man 
(woman) hours, was the contribution 
of this program. 

Before the meeting, I entered into 
the computer the names of the peo- 
ple on the board and the as- 
signments. As each one arrived, 1 
asked them to be seated at the com- 
puter, and press the number next to 
their name. As soon as they did vitat, 
the computer displayed, beneath 
their name, a list of the nine posi- 
tions. They were asked to pick the 
position that they would like most, 
and type the number beside it. Each 
time they made a selection, the 
position was removed from the 
screen and they were asked to select 
their preference among the remain- 
ing assignments. This continued un- 
til each person has picked six 
choices. When all members of the 
board had picked their selections, I 
typed F for "Finished" and the com- 
puter displayed the first position, 
and under it a list of the persons 
who picked that assignment. The list 
was displayed in order, from first 
choice through sixth choice, and a 
number in front of the name in- 
dicated each person's ranking of the 
assignment. If one or more persons 
had selected that assignment as first 
choice, we selected them for the 
assignment. Otherwise we turned to 
second choice, and once, to third 
choice. If two or more had selected 
the same one, we took time for them 
to negotiate the assignment bet- 
ween themselves. As soon as one 
position was filled, I touched a key 
and the next assignment was 



displayed in the same way. This con- 
tinued until all positions were rilled. 

The advantages of this method 
were that each person's preferences 
were displayed and considered on 
each assignment, we did not have to 
wait for anyone who was reluctant 
to volunteer to speak up. the 
assignmet is wet e made with a great 
deal of satisfaction to the people 
receiving them, and the computer 
proved to help people instead of 
controlling them. 

As valuable as this program was 
for its intended use, that, is only a 
tiny fraction of its potential. There 
are many other activities for which 
it is ideally suited, tt can help a 
board choose between different 
courses of action, by displaying 
each person's opinion of each ac- 
tion in a clear format It is extremely 
well suited to the values clarifica- 
tion method of moral education. It 
even makes a good party game to 
help people get acquainted. Beyond 
those three additional uses, there 
are many more, but three examples 
should stimulate your imagination. 



Choice Between Different Courses 
Of Action. 

The church board has the respon- 
sibility of determining where to send 
mission money that was contributed 
above and beyond the $6000 that 
our church has pledged for general 
mission causes. As we ask for sug- 
gestions, we are given six. Before we 
determine how to allocate the 
money, we poll each member of the 
board on these six options: 

A local Seminary. 

A more distant Seminary that the 

Pastor graduated from. 

A local College. 

Another local College. 

Specific support for a missionary. 

World hunger relief. 
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Values Clarification. 

As the youth group gathers for the 
Sunday evening meeting, each 
member is asked to choose the 
goals that appeal to them most from 
this list: 



Money 


Love 


Fame 


Health 


Power 


Peace 


Strength 


Education 


Friendship 


Respect 



After each member has made 
their selections, each option is 
displayed in turn and persons who 
chose that option are asked to ex- 
plain why they chose it. This way 
the young people get to examine 
what they value, compare their 
values with other people's values, 
and hopefully, to understand better 
why they value what they value. 



Party Came. 

The exercise above would serve 
as a good mixer, but to give a more 
exotic touch to a party, ask each 
person to select six jobs, in order of 
preference, from this list: 

Lion tamer 

Kamikazi pilot 

Radical terrorist 

Mercenary soldier Stunt man 

High wire artist Bomb disposal 

Missionary to headhunters 

Information About The Program. 

There are a large number of 
REMarks in the program listing, and 
it should be easy to modify. The IN- 
KEY$ instruction in Radio Shack 
Level II Basic detects a key that is 
pressed and accepts the value 
without a carriage return. If your 
BASIC does not have this function, 
you may substitute an INPUT state- 



ment. If you choose this option, you 
can delete the routine at 5000 which 
checks for a two digit number if a 1 
is pressed, the two statements that 
call that routine, and the buffer 
routine at the end of the option 
selection. The two INKEY$ instruc- 
tions there are part of the buffer, 
and serve to clear the 2 key rollover 
on the Radio Shack computer. 

The most logical change people 
would be likely to make is to change 
the number of options selected, 
either to require each person to rank 
every option, or to limit the options 
selected to a smaller or larger 
number. This is easy to do by chang- 
ing the value of V in line 2045. When 
a person has selected V options, the 
computer calls the name routine for 
the next person. 

Players can change their minds 
and revise their choices simply by 
typing the letter beside their names 
a second or third time. This is the 
way to deal with mistakes. Other- 
wise, they would have to go com- 
pletely through the selection routine 
each time. The results display can 
be called at any time, even if all 
players have not made selections. If 
people arrive late, just cycle 
through the results, let them enter 
their preferences, and call the 
results again. The name selection 
routine is called at the end of the 
results routine, and all data is saved. 

If someone whose name has not 
been entered comes in, you can 
break into the program to add a new 
name. This is how it would be done 
on the Radio Shack computer, 
assuming that the person is named 
BOB and he is the 10th person: 

Press BREAK 

Enter 
T = 10:N${10)="BOB":CONT!NUE 

None of the other data would be 
lost if this is done correctly. H 
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18 REM * PREFERENCE POLl * 

26 REM * PUBLIC DOMAIN SOFTWARE 8V GEORGE 8LfM + 
SB REH * MHY St COPIED FREELY - EVEN FOR PROF II * 
33 REM * MTIflLiZE + 

166 as 

116 CLEAR 566 
126 OIP, W(i4) 

iso Din c*<i2> 

146 Did KM/li>;Mf! fl<14> 

156 GOSUB 4868 

999 REH * DISPLAY PEOPLE'S NAMES * 

1666 CLS:?RINTC* 64,'HHICrt PERSON?" 

1616 FOR frlTQT 

1626 PK1K1 H>") "jM'-HJ 

1626 NEXT A 

1646 FRWTTYPE THE NUMBER BESIDE YOUR NAME t F IF FINISHED .)" 

1649 REM * INKEYI SCANS KEYBOARD FOR KEYPRESS- riftV uSE IftfUT * 

1656 fl*=«KEV*:lF M»" THEN 1858 

1659 REfl * DISPLAYS RESULTS OF POLL * 

I860 IF Fi$~"F" THEN 2886 

1869 REM + INVALID RESPONSE * 

16?6 N=¥ftvAfMF K-6 THEN 1636 

16?9 REM * MULTIPLE &IiiIT NUMBERS * ■ 

1986 if t*=l m 7>9 THEtt &DSUB 5866 

1999 REM * ONE PERSON EXPRESSES PREFERENCES * 

2666 CLS : FOR fl=lTQU ■ fl(H J-6 :HEXT FI 

2618 PRINTS 64. "NAME ; ">N*<N> 

2826 FOR fHTGU 

2626 PRINT Hi"/ ".CKft) 

2648 NEXT ft 

2645 V=6:IF IK? THEN V=li-i 

285a FOR ft-lTOV 

2868 PRINTS 822, "CONSIDERING ONLY THE ABOVE CHOICES. " 

2678 PRiHT h HhICH WOULD VuU PREFER 'TYPE NUMBER; V 

2638 ftl=l(*EV»-.IF A*-'* THEN £686 

2898 H=VALlftf):lF tf-6 THEN 2666 

2691 IF m~i AND U}9 [KEN N1-N.N--N.6QSU& 5666 :NW» N-M 

2694 REM * PREVENTS SELECTION OF SfifiE OPTION i'wiLi « 

2695 IF AuO-i THEN 2666 
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2655 ft£R * ERASES OPTION SELECTED FROM SCREEN * 




2166 X=64+W*64; PRINTS" 




* 




2126 NEXT ft 




2129 REJ1 * BUFFER BETWEEN SUBROUTINES * 




2126 OS: FOR fl=lT0538:HEKT ft 




212? REM * CLEARS 2 KEY ROLLOVER * 




2146 1**INKEV* 




2158 H«IHKEW 




2196 GGTO1600 




2999 REM * DISPLAY RESULTS OF POLL * 




3886 FOR fciTOU 




3016 OS. PRINTS 64.C*(A> 




5626 PRINT"CHGICE", "NAtlE" 




2136 FOR B=1T0V 




2646 FORC=lTOT 




2848 RET! * ft AND 6 ARE CATEGORIES * N*<C> IS NAME + 




2649 REN * P<C,6> IS PREFERENCE * C IS FlfiVER * 




2656 IF P<CB)*fl THEM PRINT 6,N$<C> 




2666 NEXT C 




2676 NEXT B 




2675 PRINT : PRIST "PRESS ANY KEY TO CONTINUE* 




3086 fl*=!NKEW;IF at*** THEN 2688 




2696 NEXT a 




2160 GOTO 1606 




3S99 REM * PREPARATION FOR POLL * 




4666 CLS 




4816 PRINT: PRINT "INSTRUCT IONS FOR: LEADER" 




4028 PRINT: PRINT" LIST THE CATEGORIES TO BE RANKED IN THE ORD 


ER YOU WANT" 




4030 PRIWT'THEf! TO 6E REPORTED. YOU ARE UMTED TO ft flAi 


IffJfl OF 


TWELVE" 




40*6 PRItfT "CATEGORIES. PRESS ENTER AFTER EACH CATEGORY, 


AND THEN 


ENTER" 




4056 PRINT'L (FOR LAST',' TO j'ElL Tut CCHPUTER YOU ARE FINISHED. tt 


4066 Pfes NT. PRINT" THEN uST TK£ NfSCS OF THE PERSON': 


WO «1l 


L RANK. THE" 




4B7B F&INTTATEQORIES. VGu ARE LlHITED TO FOURTEEN PEOPLE USE L 


ftS THE" 
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4688 1NPUT"IAST NAttE. PRESS ENTER TO BEGIN"; A$ 
4099 REH * LIST CATEGORIES * 

4168 as 

4116 U=6 

4126 U=tM.PRINT"CATEGQRV NUM£R">U; : INPUT C$<U) 

4126 IF C*CU>="L U THEN CKU)*":U=U-l.fiOTD 4150 

4135 IF 0=12 THEN 4150 

4146 GOTO 4126 

4149 REM * EDIT CATEGORIES * 

4156 CLS 

4166 FOR fi^lTOU 

4178 PRINT ftiC*<fl>:NEXT ft 

4186 INPUTTO CHANGE flNV CATEGORY, B4TER NWBER (6 If NO CHANGES 

)'.ft 

4190 IF ft=8 THEN 4368 

42© IF A>12 THEN 4156 

4269 REM * ADD A CATEGORY' * i" . 

4218 IF fi>U THEN U=ft 

4220 F'RiNT"NEU CflTEQORV NUMBER", A; 

4228 INPUT CKA> 

4248 GOTO 4158 

4299 REH * LIST NflMES + 

4280 CLS 

•016 1=0 

4228 T=T+i 

4248 PRIKTNME Of PERSIA NUMBER"; I, 

4256 INPUT !1I(T> 

4259 REM * AK> A NAME + 

4266 IF N*(T>V THEN HKT>":7=T-l:HnO 4488 

■i2?6 iF 1=^14 THEN 4406 

4380 GOTO 4226 

4259 REH + EDIT KfWES * 

4438 as : FOR ft*lTOT 

4416 PRINT A,NS<fi> 

4428 NEXT ft 

4428 IKPUT"TO CHANGE A NAME, ENTER NUH6ER < 6 IF HO CH8NGESr»B 

4440 IF A=6 THEN 4566 

4456 IF A>14 THEN 4466 

4466 IF A>T THEN 7=A 
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4476 PRINT "NEW NflME NUMBER", ft 

44se input mm 

4498 GOTO 4468 

4566 RETURN 

4939 * NUMBERS 18 - 19 * 

mm for &=itu568.ne:-;t d 

5616 fl$*INKEY$ 
5826 IF rW" THEN 5698 
5836 N^-ie+VHKH*) 
5896 RETURN 



Announcing a new service from 
SoftSide Publications 




Line listing 



Line listings .01 per line plus $1.00 postage and handling. 

You don't have a printer? Want listings of your programs? 

(Add .50 or enclose stamped mailer for return of your 
cassette or disk, if you want it back.) 

Procedure: Send cassette or diskette and payment to 

LINE LISTING SERVICE 
P.O. Box 68, Milford, NH 03055 

Sorry, No level I, machine, or assembly language programs. 

Do not include orders, submissions, or questions in the 
same package. 

Make sure you include your mailing address. 
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MACROTRONICS M-80 



by Donald W. Dejarnette 



One of the most fascinating and useful devices to be developed as a 
peripheral to the TRS-80 Level II, 16K is the Macrotronics M-80, a 
system that will decode and transmit Morse, Baudot, and ASCII. This 
unit is designed primarily to interface with an amateur radio 
transceiver With very few modifications the M-80 can be adapted to 
function with a general coverage shortwave receiver. It is only 
necessary that the receiver have a good product detector BFO (beat 
frequency oscillator) and can maintain a degree of selectivity and fre- 
quency stability (4kHz at 6dB down * selectivity and 1kHz * frequen- 
cy stability). 

M-80 software consists of a cassette BASIC language program and a 
machine language subprogram. The software is well supported with 
documentation. A machine language keyboard scan is utilized to pre- 
vent keybounce associated with the TRS-80. 

Interfacing is accomplished through a printed circuit board that at- 
taches to the 40 pin TRS-80 bus. The circuit board contains the elec- 
tronics necessary to demodulate the pulsed tone audio signal and 
transmit the signal to the computer. This circuit also produces the 
transmitter keying for CW (continuous wave Morse) and RTTY 
(radioteletype; Baudot, ASCII). M-80 is optically isolated from the 
TRS-80. ASCII RTTY at110 band is possible through the M-80 with the 
additional M-800 system installed. 
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The M-80 PC board is attached to the speaker or earphone terminals 
of the shortwave receiver. A CW or RTTY signal is decoded by tuning 
the received signal to match the tone input frequency of the M-80. 1 
have found the best filter for CW on my receiver (Radio Shack 
DX-300) is the upper sideband filter. Conversely, the lower sideband 
filter does a better job on RTTY. The input frequency of the M-80 is 
adjustable through the use of a trimmer potentiometer. The pot varies 
the input frequency of the PLL (phased lock loop) demodulator in- 
tegrated circuit. When your receiver reaches the input frequency a 
light emitting diode is activated and will remain on for the duration of 
the pulse. An audio signal is also provided with an optional speaker. 

Morse CW reception and transmission is variable from 1 to 399 words 
per minute. Baudot RTTY is possible at 60, 66, 75, or 100 words per 
minute. Transmission of RTTY requires the use of a FSK (frequency 
shift converter) or an AFSK (audio frequency shift converter). 
Keyboard input is buffered to 255 characters. 



RTTY FEATURES 

♦ Send CW Identification 

* Reverse mark and space tones 

• Reverse shift on space 

* Converts to 32 characters per line 

• Creates and sends "canned" message 

CW FEATURES 

• Code practice mode 

• Changes CW spacing 

• Changes keying polarity 

* Converts to 32 characters per line 

♦ Creates and sends "canned" message 



SPECIAL FEATURES 

• Line printer driver: With the addition of the optional MLK-1 loop 
keyer module, the M-80 can be used to drive inexpensive surplus 
Baudot printers such as Teletype Models 15, 19, 28, and 32. The 
Model 15 RO is currently available surplus for $95. A driver program 
is included with the M-80 instruction manual. 

You can output directly to Centronics type printers (Radio Shack) 
without the optional MLK-1 by utilizing the following: 

•OUTPUT TO PRINTER- POKE 16414,141: POKE 16415,5 
*TO RETURN TO SCREEN* POKE 16414,88: POKE 16415,4 
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• I/O board: The M-80 can be used to control various peripheral 
devices. The PC board, with software support, can switch up to 5 

relays (3 solid state, 2 mechanical). These 5 relays can be used to drive 
higher voltage relays that can control appliances, lighting, timers, 
heating and cooling systems, etc. A port driver is included with the 
M-80. 

1 encountered two minor problems when placing the M-80 into opera- 
tion. The volume level required to demodulate the signal varied with 
the received signal strength. This meant that on weak or fluctuating 
signals I was constantly adjusting the volume level. The problem was 
solved by the addition of an automatic level control removed from a 
junked cassette tape recorder. The second problem encountered was 
inadequate audio filtration. This caused "hits" in both the CW and 
RTTY modes. While the M-80 functioned well without an audio filter, 
perfect copy is attainable with one installed. Several commercial 
audio filters are available including models from Autek Research and 
MFJ Enterprises. For those who would prefer to construct their own 
audio active filter, an excellent schematic is included in Radio 
Shack's "Integrated Circuit Projects - Volume 2". This circuit employs 
a twin-T bandpass filter in conjunction with a 741 operational 
amplifier integrated circuit. 

The M-80 also has provisions for the attachment of a RTTY terminal 
unit (demodulator). When connected, the TU replaces both the audio 
filter and the PLL demodulator. This unit will deliver excellent RTTY 
under marginal signal conditions. m 



M-80 $149.00 MlK-1 $29.00 M-800 $99.00 

Available from: Macrotronics, Inc., P.O. Box 518, Keyes, CA 95328 

Teletype Model 1 5 RO - $95.00. 
Available from: 

• Atlantic Surplus Sales, 3730 Nautilus Avenue, Brooklyn, NY 11224 

• MFJ Enterprises, P.O. Box 494, Mississippi State, MS 39762 

• Autek Research, Box 512E, Sherman Oaks, CA 91403 
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Your BASIC Bookstore 



LEARNING LEVEL II by David Lien. 
The long-awaited follow-up to the 
much-loved Level I User's Manual. 

$15.95 + $1 shipping 

THE BASIC HANDBOOK: The book 
you need to learn new commands 
and refer to commands you know 
already. It give sroutines for conver- 
ting programs which require a com- 
mand your BASIC doesn't have. Great 
for converting programs from other 
BASIC'S. 

$14.95 + $1 shipping 

THE LITTLE BOOK OF BASIC STYLE: 

Add style, efficiency, and productivi- 
ty to your programming. Move up 
from designing business systems for 
lemonade stands to Maxim's of 
Paris! 

$5.95 + $1 shipping 

INTRODUCTION TO TRS-80 
GRAPHICS: A Guide to SET and 
RESET graphics on the TRS-80. 
Covers constructing geometric 
figures, plotting curves, PRINT and 
PLOT positions in Level I BASIC. 

$7.95 + $1 shipping 
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For Machine Language Programming 



TRS-80 ASSEMBLY LANGUAGE PRO- 
GRAMMING: The best current in- 
troduction to machine language at a 
bargain price. This is not a series of 
easy lessons, but an intermediate 
level discussion of what you can do 
in machine language. 

$3.95* $1 shipping 



Z-80 INSTRUCTION HANDBOOK: 

Reference guide for the Z-80, giving 
the instructions and telling briefly 
how to use them. 

$4.95* $1 shipping 



Z-80 SOFTWARE GOURMET GUIDE 
AND COOKBOOK: Well over 100 utili- 
ty, search, sort, and arithmetic 
routines, plus how to use them and 
what they do. Well written and easy 
to understand. 

$14.95* $1 shipping 



SARGON - A COMPUTER CHESS 
PROGRAM: Program Sargon into 
your computer using the Assembler, 
or use the listings to understand how 
it is done. Many useful subroutines. 
$14.95* $1 shipping 



The Software Exchange 

(,SaHhSlrm,Bot68.Milhld,NH030SS 603-673-J1-M 
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HEXADECIMAL TO 
DECIMAL CONVERTER 

by Bill Everett 



Has inflation driven your budget up to the point where you get tired even 
writing the numbers? Would you like to hide your hobby expenses from your 
spouse? Why not keep your records in the hexadecimal numbering system? 
This program will help you convert your records back and forth. 

Of course, if you are unimaginative, you could use the program to con- 
vert numbers for machine language programming. 



16 ' BY BILL EVERETT 
26 ' 11836 S£ 38TH 

38 ' BEUEVUE , HfiSH. 98864 

46 'OfTTE LAST MODIFIED 4-6-73 

58 •' 

66 'CONVERSION FOR HEX TO DECIHRL OR DECIMRL TO HEX 

78 ' 

88 CLS : BS= n XXXX" : H*="8" 

98 PR1NTS448, ; : INPUT "DO YOU MRNT TO CONVERT HEX <H> OR DECIMAL 

(0) NUMBERS'*; ft* 

108 CIS: IF fi$="H" THEN 116 ELSE If ft*="D* THEN 248 ELSE PRINT "' 

H' OR 'D' PIERSE* : GOTO 98 

118 'HEX TO DEC 

128 PRINT : INPUT "WHAT HEX NUMBER OR KOX TO GO TO D£CINfl".C* 

138 If C$=6* THEN PRINT : GOTO 240 

148 IF LEN(C*»4 THEN PRINT "NUMBER TOO LARGE" : GOTO 128 

158 IF LtN<C*X4 THEN OJtt+C* : GOTO 158 

168 SOSUB 378 

176 ft*=!>* : GOSUB 428 : D*=ft$ 

188 fi*=E* : GOSUB 428 : E$=K* 

196 fl*~F$ . GOSUB 426 : F*=fi* 

208 Fl*=G$ : GOSUB 428 : G$=ft$ 

216 D=iVflL<P*)*48S6) + <VflL<E*>*256> + <VAL<Ftt*i6> + VfiL<8*> 

226 PRINT CI-;" HEX = ".:&" DECIHflL" : PRINT 

238 GOTO 126 

248 ' DEC TO HEX 
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258 INPUT "Mil DECIMAL NUMBER OR 9999 TO 60 TO KEX."i D 

266 D=INT<RBS<D» 

279 IF 0=9939 THEN 110 

288 IF D>65525 THEN PRINT "NUMBER TOO LflRQE" ■. GOTO 258 

298 X=D 

206 GOSUB 518 : 6$=fl$ 

216 GOSUB 516 : F*=W 

226 GOSUB 516 : E$=fi$ 

226 GOSUB 510 : 0$=ft$ 

246 CS=D$+E$+F*+G* 

358 PRINT Dj " DECIMAL = ";«;• HEK" : PRINT 

266 GOTO 259 

3?6 D*=LEFT$(C*» 1) 

288 EMIID*<Ct>2il> 

396FMtIM(C$i3il) 

486 Gf=RIGHT* <Cfc 1) 

410 RETURN 

426 IF flSC<fl*»=4S AND RSC(f*><=57 THEN RETURN 

426 IF RSC<R»<65 OR flSC<fi*»76 THEN PRINT "BAD H&IBER* : GOTO 1 

16 : 'JUMP BflCK INSTEAD Of RETURN BAD 1 ! 

446 If Af="A" THEN A$="16" 

456 IF fl*="6" THEN ftt="ir 

466 IF A*="C" THEN A$="12" 

478 if ftl="D" THEN ftf="12" 

488 IF fil="E" THEN H$="14" 

496 IF H*="F" THEN A$="i5" 

566 return 

516 X=X/16 : Hl=<X-I«T«»*i6 

520 X2=K1-1NT(H1) 

528 IF X2>. 5 THEN X1=IHT(SL>+1 

548 X=INT(X> 

556 IF Xi<=9 THEN A$=RI6HT$<STR$<Xi),l) : RETURN 

560 IF X1--16 THEN fit*"fl" 

576 IF X1--11 THEN ft$="6" 

586 IF Xl=12 THEN W*"C" 

598 IF Xl=12 THEN ftt="D" 

60S IF Kl=14 THEN fi$="E" 

610 IF Kl=15 THEN fi*="F" 

628 RETURN 
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MODEL II 
The First Look 

by Lance Micklus 



There's some good news and some 
bad news inside the Radio Shack 
Model II. Although I've only had my 
machine for a few days, I can 
already tell you what you'll find 
when you get yours. 

We were told that Model II BASIC 

would be upward compatible with 
Model I Disk BASIC. Radio Shack 
seems to have created a very wrong 
impression here. It is no more com- 
patible than Model I Disk BASIC is 
with Microsoft's full 16K CPM 
BASIC on the Sorcerer. 

For one thing, the graphics are set 
up much differently. The Model II 
has 32 graphic characters which are 
printed like any other character. SET 
and RESET graphic commands do 
not exist. 

Noticeably missing are PEEK and 
POKE, usually standard in any big 
size BASIC. Moreover, you have no 
INP and OUT to get to the serial 
ports. 

There are a lot of new BASIC com- 
mands which really don't add much. 
For example, SPC which prints 
spaces; SPACES which prints spaces; 
STRINGS which will print spaces; 
and TAB, which prints spaces, t 
would rather have TAB and STR- 
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ING$, and drop the other two in 
favor of PEEK and POKE. 

On the plus side is the fact that 
many DOS commands can be exe- 
cuted from BASIC, just like 
NEWDOS. Also, there is a very 

powerful command called SWAP 
which exchanges the value of two 
variables. SWAP is a programmer's 
delight. 

At the DOS level, there are some 
goodies too. You must always enter 
the current date when you power up 
the system. Model II TRSDOS has a 
smart calendar which gives you not 
only the date, but which day of the 
year it is (like the 275th day of the 
year), and the day of the week. Also 
nice is the fact that the realtime 
clock is not affected by disk opera- 
tions, thanks to DMA. 

Another nice surprise is the fact that 
the directory tells you the creation 

date of the file. Personally, I think it 
should give you the date the file was 
last changed. 

The FREE command gives you a 
map of which tracks are used, and 
which are free. Interesting, but I'd 
rather have it work like Model I 
TRSDOS and have another com- 
mand (MAP maybe?) to give me the 
disk layout. 



One thing really impressed me very 
much. 1 guess my eight years in 
television are showing now, but the 
Model II video monitor has a good 
DC restore in it. That means the pic- 
ture does get dark if most of the 
screen gets whited out. This is a 
problem with the Model 1 monitor, 
especially if you are using a lot of 
graphics. 

It does have nice upper/lower case 
letters with good resolution. You 
can also display any letter or 
graphic in black on white, or white 
on black. There is a 40 character per 
line mode, too. At the moment, 
there is no way to turn it on from 
BASIC, however. 

For the machine language program- 
mer, the Model II is a horror show. 
Calling sequences to the DOS will 
be changed in later releases of 
Model II TRSDOS. So, if I market an 
ST-80D for the Model II, I will have 
to provide every user with an update 
when new releases of TRSDOS 
come out. 

If you are planning to run BASIC 
programs on your Model II, and 
most of you will, I hope you ordered 
yours with 64K of memory. TRSDOS 
and BASIC take up around 30K!!! 
And speaking of BASIC programs, 
you're going to have a hell of a time 
trying to transfer them from your 
Model 1 to your Model II. Of course, 
ST-80D will fix that up when it is 
ready, which won't be for a couple 
of months. 

On a more detailed (evel, Radio 

Shack changed the specifications 
for TRSDOS on both versions of the 
TRS-60. A very useful feature, found 
only in VTOS 3.0, is device indepen- 
dent I/O. This means you can set up 
the DOS to send all output for the 



printer to a disk file. Later on, you 
can print the disk file, or kill it if the 
run was bad. It saves a lot of deci- 
sion trees and time. Unfortunately, 
Radio Shack is dropping this 
feature, which is too bad. 

Speed is emphasized in the Radio 
Shack ads on Model II. Well — 
don't expect miracles. Yes, it runs 

faster in memory, but it won't blow 
you away. Disk I/O speed is no bet- 
ter than the Model I if you are using 
non-Radio Shack drives and have 
modified the DOS to run at the 
faster access speeds (see October 
PROG. 80). The truth is, we really 
can't take full advantage of the 
DMA. 

The keyboard and the screen are not 
memory-mapped. Each uses an LSI 
(Large Scale Integrated) chip to do 
its job, leaving the Z-80A free to be 
a computer. Good thinking, Radio 
Shack. A nice feature is that the 
keyboard is connected by a DIN 
connector, so you can put the 
keyboard as close or as far away 
from the monitor as you want. You 
can even put the keyboard on your 
lap. 



Over all, the TRS-80 Model II looks 
like a winner for Radio Shack. But 
its success is going to depend more 
on company policy than anything 
else. Specifically, they have to 
realize that they can't do it alone. 
Without all of the Level tv\. 
SoftSide magazines. Small Business 
System Croups, and Lance 
Mtckluses — the Model II will never 
grow and develop into the excellent 
computer system it was designed to 
be. As is often the case, the 
engineers can build it, but manage- 
ment may not know how to sell it. 
And that's what's going to make or 
break the Model II. ■ 
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SOFTWARE 
REVIEW 

Blaiseing Along In Pascal 

by Robert P. Johnson 




Now that you have mastered 
Level I, Level II, and perhaps DISC 
BASIC, what new worlds remain to 
be conquered? For TRS-80 owners, 
Computer Information Exchange, 
Inc. has made available, at very low 
cost, an introduction to the greatest 
programming language since sliced 
bread" — Tiny Pascal. This scaled 
down version of Pascal was original- 
ly developed by Kin- 
Man Chung and Herbert Yuen and 
published in the September, 
October and November, 1978, 
issues of Byte magazine. In intent. 
Tiny Pascal bears the same relation 
to Pascal that Tiny BASIC does to 
the full-blown versions of BASIC 
(Level I vs. Level II). Thus Tiny 
Pascal (thru C.I.E.) offers the bud- 
ding programmer the opportunity to 
become acquainted with Pascal 
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without the major investment for 
48K memory, 2 disc drives, and $150 
for the UCSD version of the big 
Pascal. People's Pascal I & II run on 
the Level II, 16K, TRS-80. 

C.I.E., Inc. offers two versions of 
Tiny Pascal: People's Pascal I (under 
license from Pipe Dream Software), 
a Pascal compiler written in BASIC 
for $15.00; and People's Pascal II 
(under license from Super Soft) in 
machine language for $23.50. Initial- 
ly C.I.E. informed callers that the 
two versions were identical, except 
that: 

1. The machine language version 
compiles faster, and 

2. The machine language version 
(People's Pascal II) included 
32K and 48K compilers on the 
cassette. 



As it turns out, the preceding 
statements are false. There are no 
32K and 48K compilers on the flip 
side of People's Pascal II. Instead 
you get a backup copy of side A. Se- 
cond, the monitor commands differ 
between the two versions. Third, the 
People's Pascal I compiler is (gasp!) 
a line-numbered version of Tiny 
Pascal. So your purchase decision 
will have to be made on grounds 
other than just price (e.g., flip a coin, 
or that you don't have a DOS that 
allows you to copy machine 
language tapes onto your disk). 

Now that you have parted with 
$23.50 for People's Pascal II what 
do you get when you tear open the 
package? You get a copy of TRS-80 
Computing (Vol. 1, No. 4) that is 
devoted entirely to People's Pascal 
(both versions), a slip of paper tel- 
ling you that you didn't get the big 
compilers (until you read this, you 
thought you were getting the big 
compilers too), a pamphlet explain- 
ing the superiority of C.I.E.'s cas- 
settes, and a cassette containing 
People's Pascal II. Also, you now 
have problems. 

First: Volume One, Number Four 
of TRS-80 Computing is NOT an 
"Idiot's Guide to Tiny Pascal". Both 
the BASIC and machine language 

versions are discussed - but not well 
identified as to which is which.Se- 
cond: if you don't already know how 
to program in Pascal, this 16 page 
pamphlet will not teach you how 
(well, maybe it will teach some of 
you}. The situation is made worse by 
the lack of good introductory books 
to Pascal. Unlike BASIC, FORTRAN, 
COBOL, etc. there are not hundreds 
of books on Pascal. Maybe next year 
. . . Hopefully, the existence of Peo- 
ple's Pascal will encourage the 
writing of such books -or even 



Pascal tutorials in some of the 
magazines (hint-hint PROG/80!). 
Alternatively, you can lurk around 
your local Apple II dealer and see 
what they come up with in the way 
of a basic Pascal manual. 

Moving right along, you load your 
People's Pascal tl tape to see what 
you've got. If you are like me ("im- 
mediate gratification"), you will 
soon conclude that you have a %&# 
faulty cassette. From experience, 1 
can assure you (almost) that the 
cassette is O.K. The Pascal compiler 
does not start to load until the tape 
has run for almost a minute. Finally, 
success! The Pascal package, plus a 
sample program, are loaded. Follow- 
ing the directions in TRS-80 Com- 
puting, you compile and run this 
program and are treated to an in- 
teresting graphics display . . . 

You: "Look, dear; what fast 

graphics!" 

Wife: "Is that it? Big deal!" 

After you run this program a few 

more times you can load the next 
demonstration program, compile it, 
and run it. This program plots 
Hilbert curves. Not being a mathe- 
ematician, I don't know what 
Hilbert Curves are, what they're for, 
or why I'm looking at them. Nobody 
tells me either. O.K., on to the last 
demonstration program: the game 
Blockade. If you've played this 
game before, you may enjoy it. 
Especially after you puzzle through 
the program listing on page 4 of 
TRS-80 Computing and figure out 
how to control the drawing of the 
lines. If you've never played 
Blockade and don't know Pascal, it 
is a mildly pleasant exercise in 
detection to figure out what is going 
on. It is not clear why these pro- 
grams are included. Presumably 
they demonstrate some qualities of 
Pascal - but what? 
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To sum up - should you buy this 
version of Tiny Pascal? Sure, why 
not? In fact, buy both People's 
Pascal I and II. The reasons are 

numerous: 

• The cost is low ($39.00 total for 
both). 

• You're going to want to learn 
another language anyway. It is 
depressing having everyone 
badmouthing the only language 
you know. Strike back! Now 
you can badmouth FORTRAN 
and APL 

• Remember ail those articles in 
the magazines on Pascal that 
you didn't read because you on- 
ly had BASIC? now you can go 
read them, it will give you 
something to do until David 
Lien writes a Pascal manual for 
the TRS-80. 



» Now you can stand up to other 
microcomputer owners. No col- 
or capability? No high resolu- 
tion graphics? So what! Now for 
a few paitry cents, YOU CAN 
RUN PASCAL!! (well, sort of). 

1 If you thought Adventure was a 
challenge, learning Tiny Pascal 
on your own will really cap- 
tivate you. 

■ The People's Pascal software 
does what it says it will do. It 
will give you the capability of 
running Pascal (and learning in 
the process). Learning it is up to 
you. In a world of misleading 
advertising. People's Pascal 
delivers what it promises (but 
no more). ■ 

People's Pascal \ and People's 
Pascal II, available from computer 
Information Exchange, Inc.; P.O. 
Box 158, San luis Rey, CA 920*8 
($15.50 and $23.50, Includes 
postage & handling) 



ABOUT OUR COVER... 



"An error. The source of an error can be 
human, it can be in the computer, which occa- 
sionally has an electronic failing, or it can be in 
the plotter, which may have difficulty in 
reading the computer-produced magnetic 
tape." 

Fig. 29, Page 17 from the book "Computer 
Graphics" by Melvin L. Prueitt. 
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TYPING 
TUTOR 



by 

Roy Groth 

You probably have often thought 
that it would be a lot easier if you 
didn't have to "hunt and peck" 
at the typewriter or 
computer keyboard. If you 
could only double your typing 
speed, the job would be done 
:n half the time! And, with 
increased speed and confidence 
comes increased accuracy. 

Level II, 16K — $19.95 

Typing Tutor is a set of programs designed to teach you touch 
typing — from the basics of learning where the keys are, to 
practice drills at speeds that would make a Selectric shudder! Each 
lesson is displayed on the screen, including, at the early stages, a 
keyboard diagram. You are quizzed and graded, and you progress 
at your own pace. When you have mastered a lesson, the computer 
advances to the next, using CAI (computer aided instruction). 
Progress is fast, painless, and even fun as you keep pushing to 
break your own record. 

So, whether you're going back to school or just want to enter 
programs from SoftSide that much faster, Typing Tutor can help. 

Order a copy today and be a better typist by next week. 



TheSattH/are Exchange 

f>ScutliSwx1,Boxbg,Milioid,NH0XSS 603-673-5M4 




Programming Problem? Question about a TSE Program? 

Try our Hotline... 

You can call our programmers direcl on Tuesday nights from 7 (o 10 PM. (EST) 



(603) 673-5144 
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NEW! utility package from NEPENTHE PROGRAMS 



i 




The Software Exchange 



Programming utility for professional programming. 

File Manager 80 will organize tape and disk file routines, 
print a dictionary of items specified by you, edit items 
already specified and create record layouts using the items 
you have described. It will even create the code for your in- 
put/output routines, including format, sub-record, get, and 
put routines, and store them as temporary files to merge in- 
to your programs. It will maintain a dictionary of the 
subroutines you create and the variables used. 

Minimum configuration is one disk and 32K of memory, 
but two disks are strongly recommended. Comes on disk 
with manual for $49.95. 
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THE KEY TO YOUR 
TRS-80*... 

LEARNING LEVEL II! 

Written by the au'hor of your Level I User's Manual. LEARNING LEVEL 
II picks right up where the Level I Manual leaves off It also supplies the 
changes needed to make the Level I Manual compatible with your Level II 
TRS-80" 



LEARNING LEVEL II covers all Level II BASIC beyond Level I, plus much 
more. It shows you how to use the Editor, explains what the many error 
messages are really saying, and leads you thru conversions of Level I pre 
grams to Level II 

Dual cassettes, printers, the expansion interface with clock and other 
features are explained in the same easy-to-learn style that made the Level I 
Manual famous LEARNING LEVEL II was created specifically for 
your Level II TRS-80*! *- r QP soft cover 

3> I 3 . J 3 a dd $1.00 for shipping. 

TheSattware Exchange 

6 South St reel, Box 68, Milford, NH 03055 603-673-5144 

TRS-80 \b a registered trademark ot Radio Shack and Tandy Corporation 
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